Help for this page

Select Code to Download


  1. or download this
    use feature ":5.14";
use warnings FATAL => qw(all);
...
$_ = $_->[0] for @positions;
say "Without bases: ", dump(@positions);
  2. or download this
    With bases: ([1, "ACAC"], [4, "ACAC"])
Without bases: (1, 4)