sub foo ($) { print ">>$_[0]<<\n"; }; my @bar = (4,5,6); foo 1,2,3; foo @bar; foo(@bar);