Get complement of the array

#!/usr/bin/perl -w

my @all = (0..10);
my @part = qw/0 5 7 9/;

my @part_tmp = (@part, $all[-1]);
my @cmpl = ($all[0] - 1);
map { push(@cmpl, pop(@cmpl) + 1 .. $_) } @part_tmp;
print join(" ", @cmpl);