#!/usr/bin/perl

# http://perlmonks.org/?node_id=1186862

use strict;
use warnings;

my @arr = (19,17,22,23,24,15,16,25..35);

my ($low, $high) = (sort {$a <=> $b} @arr)[0, -1];
my @missing = 0 .. $high;
@missing[@arr] = ('') x @arr;
print "missing numbers are @missing[$low .. $high]\n";