karls-mac-mini:playground karl$ perl -c ./choroba.pl
Global symbol "$max_count" requires explicit package name (did you forget to declare "my $max_count"?) at ./choroba.pl line 14.
Global symbol "$sum" requires explicit package name (did you forget to declare "my $sum"?) at ./choroba.pl line 14.
Global symbol "%count" requires explicit package name (did you forget to declare "my %count"?) at ./choroba.pl line 14.
Global symbol "$sum" requires explicit package name (did you forget to declare "my $sum"?) at ./choroba.pl line 14.
Global symbol "%count" requires explicit package name (did you forget to declare "my %count"?) at ./choroba.pl line 14.
Global symbol "$max_count" requires explicit package name (did you forget to declare "my $max_count"?) at ./choroba.pl line 14.
Global symbol "$expression" requires explicit package name (did you forget to declare "my $expression"?) at ./choroba.pl line 16.
Global symbol "$sum" requires explicit package name (did you forget to declare "my $sum"?) at ./choroba.pl line 16.
Unmatched right curly bracket at ./choroba.pl line 17, at end of line
syntax error at ./choroba.pl line 17, near "}"
./choroba.pl has too many errors.