my $a = (my $b = 3);
say($a);
say($b);

__END__
3
3