Select Code to Download

my @array =
    map { /^(\d+)\.\.(\d+)$/ ? $1..$2 : $_ }
    split /,/,
    $seq;

my %seen;
my @array =
...
    map { /^(\d+)\.\.(\d+)$/ ? $1..$2 : $_ }
    split /,/,
    $seq;