perlの配列内grepでヒットしたデータの添え字の取り方がわからん
一発で終わる方法あったっけ