closed_over.pl

{
   my %cache = {};
   sub long_running_thing { # imagine your own long running method here
      my $x = shift;
      return $cache{$x} if( exists $cache{$x} );
      my $result; 
      # do some long running thing, generate result
      return $result;
   }
}
say long_running_thing(42);