#! / usr / bin /perl -w
Använd strikt;


öppen (FH, "$ argv [0]") or die;
min @ temp \u003d <FH>;
nära FH;
min $ menar \u003d Medelvärde (\ @ temp);
min $ var \u003d variance (\ @ temp);
print "$ var \ n";
sub estimate_variance (
min ($ arrayref) \u003d @ _;
min ($ menar, $ result) \u003d (medelvärde ($ arrayref), 0);
foreach (@ $ arrayref) ($ result + \u003d ($ _ - $ betyda) ** 2)
return $ resultat / $ # ($ arrayref);
)
fel visas:
Undefined subrutin & viktigaste: variance angjort variance_try1.pl linje 9.

wht kan möjlig lösning?