just a quick (final) note : ($nr+0 eq $nr ) is not perfect for checking on numbers in general, but it is a very good check for integer numbers.

It avoids perl complaining about casting as some other methods would and is pretty easy on resources