my @records;
@records = qw( name ID email phone );

##</code><code>##

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

##</code><code>##

foreach my $rec (@records) {
	print "ID: $rec->{ID}\n";
	print "Name: $rec->{name}\n";
}