Data::Dump is just to dump out the array, so you could see, that the function does what you want. You could omit using it and pp-line too.

AFIU grep here triggers counters, so it can throw away pairs already seen.