print map { /....(.)/ and $++$+ } "@{[0..9]}";