%sushi = (
inari => "tofu", 
maguro => "tuna", 
ika => "squid",
tamago => "omelet",
sake => "salmon");

@english = values(%sushi);
@japanese = keys(%sushi);

foreach (@english) {
($japanese,$english) = each(%sushi); 
print ("$english => $japanese\n");
}