foreach my $type ( keys %sandwichHash ) {
  print "Sandwich $type\n" if $sandwichHash{$type} eq 'burger';
}