#!/usr/bin/perl

sub wariancja_szacowana {
    my ($element) = @_;
    my ($srednia, $wynik) = (srednia($element), 0);
    foreach (@$element) { $wynik += ($_ - $srednia) ** 2 }
    return $wynik / $#{$element};
}

