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