foreach my $record (@records)
{
    # $record is now a ref to the Hash it contianed
    # print a field from the record
     print "\nNew Record\n" ;
     print "FROM: $$record{From}, \n" ;


    # or loop through each key for current record
    foreach my $key (sort keys %$record )
    {
        print "$key => $$record{$key} \n" ;
    }
}