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

##</code><code>##

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