sub extractPartTuplesFromURL {
  my $cgi        = shift;
  my @partTuples = $cgi->param('partID');

  my %dupes;
  @partTuples = map {
    my @t = split(',');
    $dupes{ $t[0] }++
      ? ()
      : +{
          id             => $t[0],
          version        => $t[1],
          classification => $t[2]
      }
  } @partTuples;

  return \@partTuples;
}
[download]