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

my @data=do 'test1.dat';

print Dumper \@data;

__END__
$VAR1 = [
          'qweqwe',
          'rtyr tyr',
          '\'asdasd',
          'fghfghfgh'
        ];