Select Code to Download

    my @a1 = qw/357/;
    my @a2 = qw/3 5 7/;

    print "@a1\n";
    print "@a2\n";

    357
    3 5 7

    sub areq {
        local $" = $;;
        "@{$_[0]}" eq "@{$_[1]}";
    }