my $string = "smasm";
my @array = split(//, $string);
my %hash;
foreach(@array)
{
    $hash{$_} ++;
}
foreach(keys %hash)
{
    if($hash{$_} > 1)
    {
        print "ERROR\n";
        last;   
    }
}