use Scalar::Util qw( looks_like_number );

my %h;
$h{$_}++ for split /\t/, $string;

my $there_are_duplicates =
    grep { $h{$_}>1 and !looks_like_number($_) }
    sort keys %h;