Select Code to Download

for(my $i=$m;$i<scalar @a;$i++)

for my $i ($m..$#a)

while (($key1, $val1) = each(%num))
{
...
push(@val,$val1);
}
}

my @key = keys %num;
my @val = values %num;