@params=<STDIN>;

##</code><code>##

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

15:59 >

##</code><code>##

%numberoftimes={};

##</code><code>##

while(<FH>){

##</code><code>##

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

##</code><code>##

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

##</code><code>##

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

##</code><code>##

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