print "$element in @array1\n" if(grep( /$element/, @array1 )) ;