Select Code to Download

my %values;
foreach my $item (keys %$in ) {
...
foreach my $val ( keys %values ) {
    print "$val is $values{$val}\n";
}