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