Select Code to Download

#!/usr/bin/env perl -l

...
}

sub ary2str { join $;, @{$_[0]} }

Comparing $tests[0] with $tests[0]
Same number of keys.
...
Comparing values in 'y' hashref.
Different values
----------------------------------------