print "1番目は@{[[split(/,/, $aaa)]->[0]]}\n";