Создание 2d массива

[Billi]

Уменя есть таблица в тестовом файле я разбиваю, в 2d массив для сортировки и т.д.
...
@a3=split(/t2>t3t12>t13\'
$index=0;
foreach(@a3)
{
 @{$a3[$index]}=split(/>/,$a3[$index]);
 $index++;
}
...
Все рабоет, но насколько это грамотно написано, нельзяли сделать лучше (бустрее, оптимальнее)  ?

[commander]

не очень понял вопроса... Почему не использовать обычный массив?
например так:

my $text="DSvdfs<>AV";
$text=~s/$text=~s/>/*/g;
my @arr=split(/\\*/, $text);
print join(",", @arr);

Правда не забываем что регеплексы медленные...

[Phoinix]

commander

Тогда уж проще:
my $text="DSvdfs<>AV";
my @arr=split(/[<>]/, $text);

И не надо лишних регулярных выражений... но вопрос не в этом, я лично вижу ответ только в оптимизации представленного кода:

my $text =\'t1>t2>t3t12>t13\';
my (@array, $i);
foreach(split(/@{$array[$i]}=split(/>/,$_);
$i++
}