Looping Over A Hash
#!/usr/bin/perl use warnings; use strict; my %where=( G => "g", L => "l", I => "i", S => "s" ); for (keys %where) { print "$_ lives in $where{$_}\n"; }