Select Code to Download

$_ = <I1>;   # read column headings
my @columns= split /,/;

use strict;
my %data;
...
for (sort keys %data) {
    print $data{$_}\n";
}