#!/usr/bin/perl

use strict;
use warnings;

my @arr = qw(1000 1003 1004 1012 1013 1019 1020);

my %unused = map {$_ => 1} @arr;
my @av = grep {not $unused{$_}} 1000..1020;
print "@av\n";