my ($x) if ...
my $x = 1 if ...
my ($x, $y) = (1, 2) if ...
my ($x, $y, $z) = (split /\s+/ => $spaced_tokens)[3 .. 5] if ...