Select Code to Download

my @tagthese = (4,5,6);
# ... down in the read loop
    for (@data[@tagthese]) {
        $_ = '?' . $_ if $_ < $minclip or $_ > $maxclip;
    }