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

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

##</code><code>##

    357
    3 5 7

##</code><code>##

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