my $ref = do 'data.txt';
my @array = @$ref;