my @inst = ( 'CAGGTG',
             'CAGGTG' );

my $res1 = get_pwm(@inst);

##</code><code>##

$VAR1 = {
    'A' => [ 0, '1' ],
    'T' => [ 0, 0, 0, 0, '1' ],
    'C' => [ '1' ],
    'G' => [ 0, 0, '1', '1', 0, '1' ]
};

##</code><code>##

$VAR1 = {
    'A' => [ '0', '1', '0', '0', '0', '0' ],
    'T' => [ '0', '0', '0', '0', '1', '0' ],
    'C' => [ '1', '0', '0', '0', '0', '0' ],
    'G' => [ '0', '0', '1', '1', '0', '1' ] 
};

##</code><code>##

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