Select Code to Download

@t_arr2 = ("one", "two", "three");
...
    print "$str1->[1]\n";
    print "$str1->[2]\n";
}

@t_arr2 = ("one", "two", "three");
push(@t_arr, [@t_arr2]);
...
    print "$str1->[1]\n";
    print "$str1->[2]\n";
}

four
five
...
four
five
six

one
two
...
four
five
six

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