$ perl -MO=Deparse,-p -le 'my $one, $two, $three = @_'
-e syntax OK

(my($one), $two, ($three = @_));