Using customized function to sort keys in a hash
$hash{fruit} = apple; $hash{sandwich} = hamburger; $hash{drink} = bubbly; foreach $key (sort {myfunction($a, $b)} keys %hash) { print "$key => $hash{$key}\n"; } sub myfunction { return (shift(@_) cmp shift(@_)); }