my $index; my @message; my $input = 10; for my ( 0..$input-1 ) { $message[$_][0] = "element 0"; $message[$_][1] = 42; } print "The second array has ", scalar( @{ $message[1] } ), " elements\n"; print "They are:\n"; for ( 0..$#{ $message[1] } ) { print "\t", $message[$_][1], "\t", } print "\t", $message[1], "\t", $message[0] ,"\n";