for my $c($reference =~ /./g)  # uses $c instead of $1