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