> perl -e ' $d= (1,2); print "$d\n";'
2
> perl -e ' $d= (1,2,); print "$d\n";'
2