В Perl:
my %hash = ();
$hash{'product1_quantity'} += 5;
$hash{'product1_quantity'} += 1;
$hash{'product2_quantity'} += 3;
$hash{'product2_quantity'} += 7;
$hash{'product3_quantity'} += 2;
say join ",\n", map { "$_ - $hash{$_}" } keys %hash;
Вывод:
product2_quantity - 10,
product3_quantity - 2,
product1_quantity - 6
Порядок другой, но вы можете заставить его быть "в порядке", добавив сортировку:
say join ",\n", map { "$_ - $hash{$_}" } sort {$a cmp $b} keys %hash;