
$target_number = shift @ARGV;
LINE:
while (<>) {
  @numbers = split;
  foreach $n (@numbers) {
    if ($n == $target_number) {
      push @lines, $.;
      next LINE;
    }
  }
}
print "Target number $target_number ";
if (@lines) {
  print "found on lines @lines.\n";
} else {
  print "not found.\n";
}




