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;