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