my $path_pusher = sub {
      my @path;
      return sub {push(@path, shift); join('/', @path);};
}->();

print &$path_pusher('hoge'), "\n";
print &$path_pusher('foo'), "\n";
print &$path_pusher('bar'), "\n";