I was trying to find a way without usinf List::Util module because the script has to run on different systems.

List::Util is a standard module, so it should presumably be available on all your various systems.

This being said, as shown by poj, it is also fairly easy to roll out your own code yourself, if so you wish.