Select Code to Download

$ cat 1204245.csv 

foo,bar,baz,qux
fred,barney,wilma,betty
apple,orange,banana,pear

use strict; use warnings; use feature 'say';
use Text::CSV_XS;
...
say for @column;

__END__

$ perl 1204245.pl
baz
wilma
banana