Select Code to Download

#!/usr/bin/perl
use warnings;
...
for my $k (keys %match){
    print "key: $k value: $match{$k}\n";
}