push (@LIST, [$1, $2]) while (/ (\d+)_(\d+) /g);

みたいな処理をmapを使ってやる方法はないでしょうか？