my $blah = foo(1, 2);
sub foo {
    my ($var1, $var2) = @_;
    return $var1 + $var2;
}
# becomes
my $blah;
SOMEUNIQUELABEL:
{
    my ($var1, $var2) = (1, 2);
    return $var1 + $var2;
}