in reply to matching strings

You assign $aa to $a inside the if so they are equal. To compare them use  $a eq $aa for strings or $a == $aa for numbers.
Boris

In Section Seekers of Perl Wisdom