use strict;
use warnings;

my (@table_min_1, @table_min_2, @table_max_1, @table_max_2, $array_name);

while (<DATA>)
{
    chomp;

    if (/Array\s+(\w+)\s+(\d+)/)
    {
        $array_name = '@table_' . $1 . '_' . $2;
        #              ^
    }
    else
    {
        my @fields = split /\s+/;
        eval qq(push $array_name, "$fields[1]");
    }
}

print "\n";
print "$_ " for @table_max_1, @table_max_2, @table_min_1, @table_min_2;
print "\n";

__DATA__
...