Help for this page

Select Code to Download


  1. or download this
    while (<DATA>) {
  my $code = (split)[1];
...
    }
  }
}
  2. or download this
    while (<DATA>) {
  my $code = (split)[1];
...
    }
  }
}
  3. or download this
    while (<DATA>) {
  my $code = (split)[1];
  print if grep $_ eq $code, @all;
  }
}
  4. or download this
    my %all =  map +( $_ => 1), qw(7723 7725 9908 7765 7874);
$all{ (split)[ 1]} and print while <DATA>;