use Text::CSV_XS qw( csv );

csv (in => csv (in => $opt->{in}, fragment => "col=2-*"), out => $opt->{out}));