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