perl -E '@b=0..(@a=(1..3,5,6,7))+1;@b[0,@a]="";say@b'