use strict;
use warnings;

use List::Util qw( sum );


# sub routines
# ###########################################################################

sub summe_und_durchschnitt {
    my ( $aRef, ) = @_;

    die "Please provide an array reference.\n" 
      if not defined( $aRef ) or 'ARRAY' ne ref($aRef);

    my $summe   = sum @$aRef;
    my $schnitt = $summe/@$aRef;

    return ( $summe, $schnitt );
}



# main program
# ###########################################################################

my %A	= ( 
    name    => 'Alfred', 
    nahrung => "Sushi", 
    konsum  => [4, 2, 5, 7, 5, 3],
); 


# errechne Summe/Durchschnitt für $A{konsum} und gebe die Werte aus
printf "Summe: %d, Schnitt: %.2f\n", summe_und_durchschnitt( $A{konsum} );