#! / USR / BIN /Perl -W
использовать строгие;


OPEN (FH, "$ ARGV [0]"), или умирают;
моя @ Temp \u003d <FH>;
закрыть FH;
моя $ означать \u003d Средн (\ @ Temp);
моя $ VAR \u003d разница (\ @ Temp);
Версия для печати "$ VAR \ N";
к югу estimate_variance (
мое ($ arrayref) \u003d @ _;
мое ($ означает, $ результат) \u003d (средний ($ arrayref), 0);
foreach (@ $ arrayref) ($ результатом + \u003d ($ _ - $ средняя) ** 2)
возвращения результата $ / $ # ($ arrayref);
)
Ошибка показали:
Undefined подпрограмма И главная:: разница называется variance_try1.pl на линии 9.

WHT может быть решение??