Select Code to Download

#!/usr/bin/perl

...
} else {
    print "Generated output does NOT match expected output :-(\n";
}

# Subroutines
sub arrays_match {
...

    return $output;
}