#!/usr/bin/perl

use strict;
use warnings;

sub block {
    my $var = 0;
    {
        $var = 1;
        last;
        $var = 2;
    }
    return $var;
}

print block();