Use PDL::Core instead of PDL. Also, you haven't used a pdl index function, so the perl builtin works fine here.