perl -wE'$abc="ABCDEFGHIJKLMNOPQRSTUVWXYZ"; say substr($abc, $_ - 1, 1) for (5,10,15)'