#!/usr/bin/perl
use strict;
use warnings;
use Data::Dumper;

my @array = @{eval <DATA>};
print Dumper \@array;

__DATA__
[{field1=>'value1',field2=>'value2',field3=>'value3'},{field1=>'value4',field2=>'value5',field3=>'value6'},{field1=>'value7',field2=>'value8',field3=>'value9'}]

##</code><code>##

VinsWorldcomC:\Users\VinsWorldcom\tmp> test.pl
$VAR1 = [
          {
            'field1' => 'value1',
            'field2' => 'value2',
            'field3' => 'value3'
          },
          {
            'field1' => 'value4',
            'field2' => 'value5',
            'field3' => 'value6'
          },
          {
            'field1' => 'value7',
            'field2' => 'value8',
            'field3' => 'value9'
          }
        ];