(my $copy = $k ) =~ tr/0-9//cd;