my $ref = [
        {
                'State' => 'Maine',
                        'Town' => 'Portland'
        },
        {
                'State' => 'New Hampshire',
                'Town' => 'Concord'
        }
];

foreach ( @{$ref} )
{
        print $_->{State}."\n";
}