sub foo { map { print $_[$_] } 0 .. $#_ }