my ($cur_num,$next_num) = map {$1 if $_  =~/\d*[A-Z]_(\d+)$/} $arr[$_],$arr[$_+1];