#!/usr/bin/perl

#use strict;
no strict 'refs';
use warnings;

my @table_min_1;
my @table_min_2;
my @table_max_1;
my @table_max_2;
my @fields;
my $array_name;
my $item;

while (my $lines = <DATA>) {
    chomp($lines);
    if ($lines =~ /Array\s+(\w+)\s+(\d+)/) { # array ref
        $array_name = "\$table_" . $1 . "_" . $2;
    }
    else {
        @fields = split(/\s+/,$lines);
        my $value = $fields[1];
        #print "debug: $array_name \n";
        eval "push @{$array_name}, $value";
    }
}

foreach $item (@table_min_1) {
    print "$item\n";
}
foreach $item (@table_min_2) {
    print "$item\n";
}
foreach $item (@table_max_1) {
    print "$item\n";
}
foreach $item (@table_max_2) {
    print "$item\n";
}

__DATA__
Array max 1
useless_text_field a
useless_text_field b
useless_text_field c
Array max 2
useless_text_field 1
useless_text_field 2
useless_text_field 3
Array min 1
useless_text_field d
useless_text_field e
useless_text_field f
Array min 2
useless_text_field 4
useless_text_field 5
useless_text_field 6

##</code><code>##

a
b
c
1
2
3
d
e
f
4
5
6