map {say $_,2*$_,3*$_} grep {join("",sort split("",$_.2*$_.3*$_)) eq '123456789'} 123 .. 329 ;#该片段来自于http://www.codesnippet.cn/detail/050320132325.html
来源: http://www.codesnippet.cn/detail/050320132325.html