#!/usr/bin/perl -w
use strict;
my @a;
my $f;
$a[0] = "a" ;
$a[1] = "c" ;
$a[2] = "abcd" ;
$a[3] = "b" ;

($f) = grep {$a[$_] =~ /^abc$/} (0..$#a);# ? 1 : 0;
if ( $f ) {
    print "YES\n" ;
}
1;

##</code><code>##

#!/usr/bin/perl -w
use strict;
my (@f) = qw|a ab abc abcd|;

if (grep {/Zabc/} @f){
    print 'YES!';
}
1;

##</code><code>##

 In scalar context, returns the number of times the
 expression was true.