in reply to Identifiying unique pattern

Still unclear what you want. What exactly would end up in the %size hash given your example array?

In Section Seekers of Perl Wisdom