my @ary = map {$_ / 10} (15...94) ;