my %seen;
my @sorted = sort($a <=> $b) grep{ $seen{$_}++ } map {substr($_,0,1)} @original_array;