$linenumber=1;
foreach $line(@fileData) {
   if ($line =~ m/^1$/) {
	   print "$linenumber\n";
   }
   $linenumber++;
}