Re^2: Problem in a Loop

now it works but i have another question .. do you know why when i print data Dumper i don´t get anything?

my $freqocurrence={};
sub freq_oc{
    foreach my $key (keys %$observation){
        $total10 += $observation->{$key};
    }


foreach my $key (keys %$observation){
    $freqocurrence->{$key} = $observation->{$key}/$total10;
    print "Frequency of ocurrence:     Aminoacid $key-> $freqocurrence
+->{$key}\n";
    
    }

}

print Dumper $freqocurrence;
[download]

Comment on Re^2: Problem in a Loop Download Code

Replies are listed 'Best First'.
Re^3: Problem in a Loop by hdb (Monsignor) on Sep 19, 2013 at 13:28 UTC
I can only guess that your script misses the following three lines near the top: `use strict; use warnings; use Data::Dumper;` [download]	[reply] [d/l]