use strict; 
use warnings; 

my %A	= ( name => 'Alfred', 
	    betreff => "Monatliche Sushibarbesuche im halben Jahr", 
	    konsum => [4, 2, 5, 7, 5, 3]
		  ); 
		  
	zeuch(\%A); 
	
	zeuch(\@{$A{'konsum'}}); 
	
	my $sum = 0; 
	for my $i (@{$A{'konsum'}})
		{ $sum += $i; } 
		
		printf("Summe: %d, Durchschnitt: %2.2f\n", $sum, $sum/6);