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







