perl - perlでテキストファイルを$number/t$q/t$aの形式でフォーマットする

Question

質問の数をインデックス化するようにテキスト ファイルをフォーマットしようとしています。私がこれまでに持っているコードは次のとおりです。

my %questions = map { split(/\t/, $_, 2) } @qa_list;

これにより、データがタブで区切られた質問/回答のリストに正しくフォーマットされます。ただし、これを変更して質問に番号を付ける方法がわかりません。そこに別の split() またはマップをネストすることを考えていますが、機能せず、読みにくい複雑な式になってしまいます。

編集：最初のコメントに応えて

現在、出力は次のようになります。

Question1\tAnswer1
Question2\tAnswer2
Question3\tAnswer3

しかし、私はそれが欲しい：

1    Question1\tAnswer1
2    Question2\tAnswer2
3    Question3\tAnswer3

Answer 1

を含む配列を取得したい

Question 1<tab>Answer 1
Question 2<tab>Answer 2
...

そしてプリントアウト

1<tab>Question 1<tab>Answer 1
2<tab>Question 2<tab>Answer 2
...

したがって、配列インデックスに 1 を加えたものとタブを先頭に追加するだけの問題です。

print "$_\t$qa_list[$_-1]\n" for 1..@qa_list;