-while (my ($alias, $target) = each %shift) {
- # copy alias to shifted
- $groups->{key}{$alias} = $groups->{key}{$target};
- $groups->{def}{''}{$alias} = $groups->{def}{''}{$target}.' ext';
-}
-$groups->{def}{''}{$_} =~ s/g7/g4/ for qw( ! < > ? ); # similar punctuation