for my $arg (@ARGV) {
    #$script=$ARGV[0];
    #$stanza=$ARGV[1];
    $metricsfile=$ARGV[0];
    $resultfile=$ARGV[1];
    }

##</code><code>##

use strict;   # always!
use warnings; # always!

##</code><code>##

### Assigning the argument file to in_file ####
$in_file = $metricsfile;

##</code><code>##

open (IN, "<$in_file") or die "Can't open $in_file: $!";

##</code><code>##

### A while condition to read all the lines in a file and place in an 
+array####
#my $linenum=1;

while(@linesFromMetrics=<IN>){ # opening while loop

##</code><code>##

my @lines=<IN>;
# or
while (my $line=<IN>) { # ...

##</code><code>##

 #print "Reading metrics file \n";
 #print $linenum++;

##</code><code>##

 ### Assigning the argument file to in_file ####
 $input_file = $resultfile;

##</code><code>##

#!/usr/bin/perl

use strict;
use warnings;

die "Usage: $0 <file1> <file2>\n" unless @ARGV==2;

my %orig=map {$_ => 1} do {
    open my $fh, '<', $ARGV[0] or die $!;
    <$fh>;
};

open my $fh, '<', $ARGV[1] or die $!;
$orig{$_} and print while <$fh>;
 
__END__