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

##</code><code>##

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