Select Code to Download

$_ = map { $_ ? $_ / $n : 0 } @$_ for values %pwm;  # Line 26

use Data::Dumper;

...

    return;
}

$VAR1 = {
          'A' => [
...
T => 0.25 0.75 0.25
C => 0 0 0.25
G => 0.25 0 0.25