Perlの基本分かってない。

誤　 正
*data %data
@w[0] $w[0]
@w[1] $w[1]
@w[2] $w[2]

これでやるよろし。