Select Code to Download

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