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

my $res1 = get_pwm(@inst);