while (<$infile>) {
            chomp;
            $lines[$line_count] = $_;
            $line_count++;
        }
        close $infile;

##</code><code>##

my @lines = map{chomp;$_;$line_count++;} <$infile>;