Select Code to Download

#!/usr/bin/perl
use warnings;
...

die "Mismatched lists" if @a1 != @a2;
print "found $a1[$_] and $a2[$_]\n" for 0 .. $#a1;

found 45 and 40
found 20 and 20
...
found 00 and 00
found 03 and 00
found 00 and 00