use strict;
use warnings;
use 5.010;

use Phrase;

my $phr1 = Phrase->new();

$phr1->quantities("qty", 1);
say $phr1->total_quant;

$phr1->quantities("qtySum", 5);
say $phr1->total_quant;

$phr1->quantities("qtyCont", 8);
say $phr1->total_quant;

--output:--
1
6
14

##</code><code>##

package Phrase;

use strict;
use warnings;
use 5.010;

sub new {
    my $self = {};

    $self->{QUANTITIES} = {};
    $self->{TOTAL_QUANT} = 0;

    bless($self);
    return $self;
}

sub total_quant {
    my $self = shift;
    return $self->{TOTAL_QUANT};
}

sub quantities {
    my $self = shift;
    my $key = shift;

    if (@_) {
        my $quant = shift;

        $self->{QUANTITIES}->{$key} = $quant; 
        $self->{TOTAL_QUANT} += $quant;
    }

    return $self->{QUANTITIES}->{$key};
}

1;