Select Code to Download

use warnings;
use strict;
...
my$type=[4];
print "$type\n";
}

Can open file "TABLE.txt"
ARRAY(0x181ea88)
...
ARRAY(0x181ea88)
.....
ARRAY(0x181ea88)

print "@$type\n";

Can open file "TABLE.txt"
4
4
4
4
etc