Select Code to Download

my $column_separator = ",";

my $column_separator = qr/,/;

my $column_number = "3";

open(FILE,"<","$file");
while (<FILE>) {
...
 print $columns[$column_number],"\n";
}
close FILE;