for my $aref ( @lnPAM ) { $_ /= ( $mutRate * 100 ) for @$aref; }