Help for this page

Select Code to Download


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