Select Code to Download

use strict;
use warnings;
...

print "$test1[$_]:$test2[$_] = $rules{$test1[$_]}{$test2[$_]}\n"
    for 0 .. $#test1;

a:a = x
b:a = r
...
c:a = m
a:b = y
a:c = z