
$target_number = shift @ARGV;
LINE:
while (<>) {
  @numbers = split;
  foreach $n (@numbers) {
    if ($n == $target_number) {
      print "Target number occurs on line $.\n";
      next LINE;
    }
  }
}






