$ perl -le '$a = (3, 4, 5); print $a'
5