my @after; foreach @positions { push(@after, $_) if (!/[GT]/); }