Select Code to Download

use strict;
use warnings;
...
}

print "Total = $total\n";

Found [e] 4 times (4 * 2 = 8)
Found [a] 3 times (3 * 7 = 21)
Found [z] 2 times (2 * 26 = 52)
Total = 81