Select Code to Download

@params=<STDIN>;

15:58 >perl -MData::Dump -wE "my @params = <STDIN>; dd \@params;"
1
...
["1\n", "2\n", "3\n"]

15:59 >

%numberoftimes={};

while(<FH>){

open(FH, '<', $file)
    or die "Cannot open file '$file' for reading, stopped";

while(<FH>){
     @lines=split("\n",$file);
     for $line(@lines){

while (my $line = <FH>) {
    chomp $line;
    for my $p (@params) {
        ... # use $line

if (index($line,$p)){