#! perl -w

 my $flag = 0;
 for (@raw_data) {
	 if ( defined $hit[0] and $hit[0]         # has a value that is non-null
       and  defined $strike[1] and $strike[1]      # ditto
       and /\Q$hit[0]\E[ \t]+\Q$strike[1]\E$/) {
		 print "Found it.";
		 $flag = 1;
		 last;
	 }
 }
 if (! $flag) { # didn't find it in the array
	 print "didnt find it";
 }