use Bio::AlignIO;
use Bio::SeqIO;
use Fcntl qw(O_RDWR O_CREAT);
use DBM::Deep;
use Data::Dumper;

<br>
...<br>
my $db = tie %positions_hash, "DBM::Deep", "positions.db";
<br>...<br>
# hash creation