Select Code to Download

@a= qw(a b c d e c d e c d e c d e c d e a b c d a b c d a b c d a b c
+ d a b a b a e e d a a a a a a a a);
for(@a)    {
...
        $c=$r{$_}
    }
}

for (keys %r){print "$_ $r{$_}\n"};
print "\n\$m is $m\n\$c is $c";