Odd PERL Problem (7.1)