perl -le '@array0 = qw( 1 2 3 4 );@array1 = qw( 5 6 7 8 );foreach $i(0,1){print "ARRAY $i\nValue ". ${"array$i"}[1]. "\n";};'