# Instanz der Package main erstellen
my $main = bless{
    name => 'Alfred', 
    betreff => "Monatliche Sushibarbesuche im halben Jahr", 
    konsum => [4, 2, 5, 7, 5, 3]
}; 

# und mit dieser Instanz eine Methode aufrufen
printf("Summe: %d, Durchschnitt: %2.2f\n", $main->calc);

sub calc{
    my $self = shift;
    my $sum = 0;
    foreach my $amt( @{$self->{konsum}} ){
        $sum += $amt;
    }
    my $avg = $sum / scalar @{$self->{konsum}};    
    return ($sum, $avg);
}