use 5.012;
use warnings;
use autodie;

my @array;
for (glob 'file*.txt') {
    local $/; # Slurp
    my ($num) = /(\d+)\.txt$/g;
    open my $fh, '<', $_;
    $array[$num] = [ split /\s/m, <$fh> ];
}

$" = '> <';
say "\$array[$_] = <@{$array[$_]}>" for 1..$#array;

##</code><code>##

$array[1] = <foo> <bar> <baz>
$array[2] = <one> <two> <three> <four> <five> <six>
$array[3] = <apple> <pear> <mango>

##</code><code>##

my %hash;
for my $file (glob 'file*.txt') {
    local $/; # Slurp
    open my $fh, '<', $file;
    $hash{$file} = [ split /\s/m, <$fh> ];
}
$" = '> <';
say "\$hash[$_] = <@{$hash{$_}}>" for keys %hash;

##</code><code>##

file1.txt:
  foo bar baz
file2.txt:
  one two three
  four five six
file3.txt:
  apple pear mango