Somewhere before the loop you should have: my $analysis = analysis->new ($seqname, $sequence); and replace all analysis-> with $analysis->.

Suggest to whomever wrote analysis.pm that it should use a camel case Id - strict lower case is reserved for pragmas.