#!/usr/bin/env /friends/.rakudobrew/bin/perl6
%tAssociativeArray=('name'=>'John','age'=>'31','sex'=>'male');

foreach(sort keys %tAssociativeArray)
{
	$tKey=$_;
	$tValue=$tAssociativeArray{$tKey};

	print $tKey.' -> '.$tValue."\n";
}%tAssoc