in reply to V basic question about eq

If you just want to see that they start the same, you could do if ($short1 eq substr($short2, 0, length($short1))).

In Section Seekers of Perl Wisdom