my $variable = 3;

my $string = sub { return "Variable: $variable\n"; };
print &$string;

$variable = 4;
print &$string;