sub moveNElementsToTheEndInPlace{
    my($l,$n)=@_;
    @$l = @$l[$n..$#$l,0..$n-1];
    $l
}

print "@{moveNElementsToTheEndInPlace([1,2,3,4,5,6,7],3)}\n";