Select Code to Download

my @pairs = qw( A B C D );
my @vals  = 1..4;
...
while ( my($key,$val) = each %hash ) {
    print "$key:$val\n";
}

my @pairs = split "\n", $pair;