"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.