#!/usr/bin/perl 

# $srednia = srednia(\@tablica) oblicza srednia dla tablicy z wartosciami.
#
sub srednia {
    my ($element) = @_;
    my $wynik;
    foreach (@$element) { $wynik += $_ }
    return $wynik / @$arrayref;
}

@punkty = (10, 10, 31, 28, 46, 22, 27, 28, 42, 31, 8, 27, 45, 34, 6, 23);

print srednia \@punkty;
