my $func;

{
   my  $arg1 = 'Hello';
   $func = sub {
      my ($arg2) = @_;
      print("$arg1 $arg2\n");
   }
}

{
   my $arg1 = 'Goodbye';
   $func->('World');
}   

##</code><code>##

Hello World