$ perl -wle 'my ($a) = (2, 3)'