push @sort, 'taf' if $f eq 't' && ! grep $_ eq 'taf', @sort;
push @sort, 'staf' if $f eq 's' && ! grep $_ eq 'staf', @sort;
push @sort, 'metar' if $f eq 'm' && ! grep $_ eq 'metar', @sort;
push @sort, 'taf' if $f eq 't' && ! grep $_ eq 'taf', @sort;
push @sort, 'staf' if $f eq 's' && ! grep $_ eq 'staf', @sort;
push @sort, 'metar' if $f eq 'm' && ! grep $_ eq 'metar', @sort;