Select Code to Download

#!/usr/bin/perl

...
    print $AoA[$i], "\n"; # different memory address
}
print "@$_\n" for @AoA;

---- 1. global @array ----
ARRAY(0x814f618)
...
 # ## ###
 # ## ### ####
 # ## ### #### #####