Select Code to Download

my $previous_line = <IN>;
chomp $previous_line;
...
    print OUT "$current_columns[2]\n";
    @previous_columns = @current_columns;
}