sub test {
    my @arr = @_;
    if (grep {$_ == 1} @arr) {
        print "yay it has 1\n";
    } else {
        print "no it doesn't\n";
    }
}

test(1,2,3);
test(4,5,6);