Select Code to Download

use Modern::Perl;

my @one   = ( 1, 2, 3 );
...
    my ( $first, $second ) = @_;
    return ((join chr(0), sort @$first) eq (join chr(0), sort @$second
+)) ? 1 : 0;
}