Select Code to Download

use strict;
use warnings;
...
for ( keys %where ) {
    print "$_ lives in $where{$_}\n";
}

perldoc -q hash