@x=split($"=''
         , 'brooks wending seaward'
         . 'jaunt hellbent through summer crops'
         . 'lick the dawntime waves');
print "@x[22,24,45,62] @x[17,9,3,37,43,49,50] ";
print "@x[55,49,39,31] @x[38,76,52,4,8,20]\n";