my $parameter = qq{param at declaration\n};
my $print_ref = sub { my ($p) = @_; sub { print $p } }->( $parameter );

$print_ref->();

$parameter = qq{param after declaration\n};

$print_ref->();
__END__
param at declaration
param at declaration