use strict;
use warnings;
use Data::Dumper;

open my $file, '<', 'test1.dat';
my @data=do $file;
close $file;

print Dumper \@data;

exit;
__END__