sub extractPartTuplesFromURL { my $cgi = shift; my @partTuples = $cgi->param('partID'); @partTuples = map { my @t = split(','); {id=>$t[0], version=>$t[1], classification=>$t[2]} } @partTuples; return \@partTuples; }