my $function = sub {
    my $var = 'xpto'; print ">> $var <<\n"
};

$function->();