@t_arr2 = ("one", "two", "three");
push(@t_arr, \@t_arr2);
@t_arr2 = ("four", "five", "six");
push(@t_arr, \@t_arr2);
for $str1 ( @t_arr )
{
    print "$str1->[0]\n";
    print "$str1->[1]\n";
    print "$str1->[2]\n";
}

##</code><code>##

@t_arr2 = ("one", "two", "three");
push(@t_arr, [@t_arr2]);
@t_arr2 = ("four", "five", "six");
push(@t_arr, [@t_arr2]);
for $str1 ( @t_arr )
{
    print "$str1->[0]\n";
    print "$str1->[1]\n";
    print "$str1->[2]\n";
}

##</code><code>##

four
five
six
four
five
six

##</code><code>##

one
two
three
four
five
six

##</code><code>##

#!/usr/bin/perl -w
use strict;