push @positions, [ $read->end + 1, $base ];

##</code><code>##

@positions = grep $_->[ 1 ] =~ /ac/i, @positions;

##</code><code>##

@positions = map $_->[ 0 ], @positions;