5 use experimental 'multidimensional';
10 while (my @a = splice(@bags, 0, 3)) {
11 for my $c (split(//, $a[0])) {
12 next if $a[1] !~ /$c/;
13 next if $a[2] !~ /$c/;
14 $sum += ord($c) - ord('A') + 27 if $c =~ /[A-Z]/;
15 $sum += ord($c) - ord('a') + 1 if $c =~ /[a-z]/;