my @uniquePTs =
   grep {! $seen{join q{:}, $_->{id}, $_->{version}} ++}
   map
   {
      {
         id             => $_->[0],
         version        => $_->[1],
         classification => $_->[2]
      }
   }
   map
   {
      [split m{,}]
   }
   $cgi->param('partID');