use strict;

my $First_Hash = new_entry();
my $First_Hash->{'Next'} = new_entry();
# ... etc ...

# Creates a new, dynamically allocated hash and returns
# a pointer to it.
sub new_entry {
    return {
        Field1 => 'Data',
        Field2 => 'Data',
        Next => undef
    };
}