my $variable = 3;

my $string = sub {"Variable: $variable\n"}; # Simplified from your code
print $string->();
#results in "Variable: 3"

$variable = 4;
print $string->();
# Prints: Variable: 4