Select Code to Download

push @{$hash{$key}}, { $valname => [ $value, $type, $flag ] };

foreach my $i(keys %hash) { 
    print "i=$i\n";
...
        # etc.
    }
}