Select Code to Download

#! perl
use strict;
...
$HoA_sequence{$_} //= '-' for 67 .. 79;

dd \%HoA_sequence;

21:40 >perl 904_SoPW.pl
{
...
}

21:42 >

for my $protein (67 .. 79)
{
...
        $HoA_sequence{$protein} = '-';
    }
}