my ($chr_a, $num_a) = $a =~ m/^([a-z]+)(\d+)/;