while (<DATA>) {
	chomp;
	my ($key, $value) = split;
	$value =~ tr/"//d;
	my %record;
	$record{$key} = $value;
	push @records, \%record;
}