for my $c (split(//, $reference))  # uses $c instead of $1