@A = (1,2,3,4,5,7,21,55,66);
$B = [ @A[2..4] ];