# incomplete example, not tested

sub total {
    my $self = shift;

    my $total = 0;

    foreach my $key (qw{blah blah blah}) {
        $total += $self->{$key}
    }

    return $total;
}

print $phrase->total();