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