[perl] push で二次元配列を作成する

@allRecords は以下のようになる。