sub extractPartTuplesFromURL { my $cgi = shift; return values %{{ map { my %h; @h{qw/id version classification/} = split(','); $h{id} => \%h } $cgi->param('partID') }}; }