how to print out side of function nor for

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";
[download]

i am using this coding in my function , its only print inside and outside

how to print out side of function