Select Code to Download

my %foo = 1 .. 10;
while(my($k,$v) = each %foo){
...
k(1)v(2)5
k(1)v(2)5
...