map (2**) $ map (/12) [1..12] 結果 [1.0594630943592953,1.122462048309373,1.189207115002721,1.2599210498948732,1.3348398541700344,1.4142135623730951,1.4983070768766815,1.5874010519681994,1.681792830507429,1.7817974362806785,1.88774862536338…

follow引数を1にすると対応する。 しなくてもやってくれる環境があるのが謎。。。。 use File::Find; find({ wanted => \&wanted, follow => 1 }, "./"); sub wanted { # $_に対する処理 }