- or download this
$gen_seq_list{'42-MG-BA'} = (
'19_35770059' => 'TC',
'2_68019584' => 'G',
'16_9561557' => 'G'
);
- or download this
for my $seq (keys %$gen_seq_list) {
for (keys %{$seq}) {
...
}
}
}
- or download this
use strict;
use warnings;
...
__OUTPUT__
41-OK-DZ:7_158773210:gen=AA,cave=G
42-MG-BA:19_35770059:gen=AA,cave=TC