something like,

   my %size;
   for(@str) {
         $size{$1}=1 if($_ =~ /(gss)/);     
   }
[download]

i need to handle (but i didn't in my example) '.' and '_' in my pattern  'gss' in order to indentify unique patterns.
For more details,
i need  'gss' as a unique pattern, instead of  'gss.' , 'gss_'