Hi Rob , Sorry my mistake didn't see that. Thanxs
if ($found eq $search) { #!/usr/bin/perl > use strict; > use warnings; > > my @arr=qw(fry ring apple law); > print "Enter the string you are searching for:"; > chomp(my $search=<STDIN>); # you may have to check, if input is not string > I don't understand your comment. The input from stdin has to be a string - it cannot be anything else. my (index) = grep { arr[$_] eq $search }0..$#arr ; > if( defined (index)) > { > print " found" ; > } > This code will not compile. It should read my ($index) = grep { $arr[$_] eq $search } 0..$#arr ; if (defined ($index)) { print " found at $index" ; } -- Akinleye Adedamola