>>733
カンマでいいじゃないか
print '1番目は', (split(/,/, $aaa))[0], "\n";

先日思いついたBad Tips
print "1番目は${\do{(split(/,/, $aaa))[0]}}\n";
print "1番目は${proc((split(/,/, $aaa))[0])}\n"; sub proc {\shift}