my @x = ( 1 .. 4, 4 );
derange { print "@x[@_]\n" } 0 .. $#x;