#! /usr/bin/perl

use strict;
use warnings;

print "Please enter a list of numbers (I.e. 1 2 3 4 5)\n";

chomp(my $n = <STDIN>);
my @numlist = split/\s/, $n;

@numlist = sort { $a <=> $b } @numlist;

if ($numlist[0] == 1) {
	print "Horray Array starts at 1\n";
	my $prevnum = 0;
	foreach my $number (@numlist) {
		unless (($prevnum + 1) == $number) {
			print "Error in Sequence";
			$prevnum = 0;
			last;
		}
		else {
			$prevnum = $number;
		}
	}
	if ($prevnum) {
		print "The numbers are correct\n";
	}
}
else {
	print "Error Array DOES NOT Start at 1\n";
}