my %quantities = map {
    (my $name = $_) =~ s/^quantity//; 
    $name => param($_); 
} grep { /^quantity/ } param();
;