programming-examples/perl/Statement/Use foreach to loop through hash with keys function.pl

$hash{sandwich} = ham;
$hash{drink} = 'AA';

foreach $key (keys %hash) {
    print $hash{$key} . "\n";
}