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