>>142
アプリオリアルゴリズムかなんか履修してる学生さん？

続くプログラムでも個々のバスケットを維持したいなら力技かな。
元データがテキストファイル(data)で1行1バスケットなら>>136の言うように代入部分を

while (<>) { push @ar, [split] };

にしてtest.plで保存、コンソールからパイプ通して

$ cat data | perl test.pl

みたいなのが楽かも。dataもtest.plもとっかえひっかえするんでしょ？多分。