my $str_copy = $str;
my $sub = sub { $str_copy };