G'day mis,

Welcome to the Monastery.

Two quick points:

• $a and $b are special variables which I'd recommend avoiding except for their special purposes. See perlvar: $a for more information.
• Instead of using lc (or uc) consider fc. Note that you'll need Perl 5.16 for that.