>>342
my @b = ();
$b[0] = 45;
b[1] = 123;
b[2] = 0xAB;
for( my i=0; i<=$#b; i++){ print $b[i]; }
foreach my $i(0..$#b){ print $b[i]; }
こんな感じ?