while ($line = <>) {
    $symbol{ $_ }++ for ( split //, $line );
}

##</code><code>##

while ($line = <>) {
    for ( split //, $line ) {
        $symbol{ $_ }++;
        $total++;
    }
}

##</code><code>##

$total = eval (join '+', values %symbol); # :)