Select Code to Download

@fieldnames = split(/$separator/,$firstline);

@fields = split(/$separator/,$line);
@data{@fieldnames} = @fields; # [1]