#!/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'}]