Select Code to Download

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

while (<DATA>) {
    chomp;
    my ($key, $value) = split;
...
    $record{$key} = $value;
    push @records, \%record;
}

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