Select Code to Download

my %phrases = (
 "phrase 1" => {
...
 }
 return $qty;
}

for my $k (keys %phrases) {
 # update
...
 }
 return $qty;
}

print "${ \$phrases{'phrase 2'}->{'qtyTotal'}->() }\n";

package Qty;
sub new {
...
);

print "${ \$phrases{'phrase 2'}->qtyTotal() }\n";