print number_of_uniques('ppppppperlguy') . "\n";

sub number_of_uniques {
   my %s;
   return scalar (grep !$s{$_}++, split '', $_[0]);
}