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

##</code><code>##

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

##</code><code>##

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

##</code><code>##

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