my %cache;

my $result = $cache{$input} ||= function($input);

print $result;