@letters = ("d","b","c","e","a","f");
@getallen = (4,6,5,2,9,1);
$teller = 0;
foreach $letter(@letters){
	$hash{$letter}=$getallen[$teller];
	$teller++;	}
@keyz = keys(%hash);
@sorted= reverse sort(@keyz);
@highest = @sorted[0..3];
foreach(@highest){
	print "$_:";
	print $hash{$_};
	print "\n";}