if (my ($matched) = grep /^1$/, @array) {
    print "found it: $matched\n";
}