"its only print three and random"

This is all you've asked it to print:

print $stuff[0][2], "\n"; # prints three
print $stuff[3][1], "\n"; # prints random
[download]

Something like:

#!/usr/bin/perl

use strict;
use warnings;
use Data::Dumper;

my @stuff = (
    ['one', 'two', 'three', 'four'],
    [7, 6, 5],
    ['apple', 'orange'],
    [0.3, 'random', 'stuff', 'here', 5],
);

print Dumper \@stuff;
[download]

Or this solution from one of your previous threads? Again if the previous answers don't do what you require it'd be wise to follow them up rather than posting essentially the same questions again and again.

Update: or here a few minutes before this thread.

«how to print one by one continuously in full array»

Access and Printing of an ARRAY OF ARRAYS

Regards, Karl

#!/usr/bin/perl
use warnings;
use strict;

my @ar = (qw/a b c/, [ 'level 1', 'level 1b',
                         [ 'level 2', 'level 2b',
                             [ 'level 3', [ 'level 4', [[ 'level 6 ']]
+ ]]]]);

sub flatten {
    return map ref $_ ? flatten(@$_) : $_, @_;
}

print join ', ', flatten @ar;
[download]

The simplest way to write questions in future is to show what you expected to happen or what you want to happen.

# my code here
# make sure your code has
use strict;
use warnings;
[download]

In the above program, the data is in the array/hash/other data structure because....(give a reason here)

I wanted it to output the following:

# what I expected it to print
[download]

# what the program really did
[download]

#how to print one by one continuously in full array

  my $counter = 0;
  
  foreach my $array (@stuff){
     print "ARRAY [ ", $counter++ ," ]: ";
     foreach my $data (@$array){
          print $data,' ';
     }
      print $/;
  }

  #OR 
  
 print join " ", map{@$_} @stuff[0..$#stuff];
[download]

how to print dynamicaly ? might be related.