$_->{$.};s:.?(.)..(.):print(($1..$2)[9,0,15,7]):e