Select Code to Download

        if (my ($a, $b) = ("$key$val" =~ /(..)(...)/)) {
            $hash2{$a} = $b;
        }

#!/usr/bin/perl
use Test::More "no_plan";
...
ok 1 - same number of keys
ok 2 - is_deeply same
ok 3