my $unko = sub {
return $$**$$;
}

しかし、そのうち my sub って書ける様になるらしい