The example I provided did not use strict. My apologies for that oversight. With that being the case the code worked fine (even with -w)

Cheers

!unlike

I write my Perl code like how I like my sex: fast and dirty. ;)