Select Code to Download

while (<DATA>) {
    chomp;
    my @fields = split(/$sep/, $_);
...
    @data{@fieldnames} = @fields;
    push @datalist, %data;
}

while (<DATA>) {
    chomp;
    my $data = {};
    @$data{@fieldnames} = split(/$sep/, $_);
    push @datalist, $data;
}