I would change your program to this one:

#!/usr/bin/perl
use warnings;
use strict;

print 'Enter the number of elements: ';
my $n = <>;                                     # Read the input.
chomp $n;                                       # Remove the newline.
print "Enter $n numbers.\n";
my @a;
for (1 .. $n) {
    push @a, scalar <>;                         # Push numbers to the 
+array.
}
chomp @a;                                       # Remove the newlines.

print join (' ', 'The even numbers are:',
                 grep $_ % 2, @a),              # grep filters the num
+bers = 1 modulo 2
      "\n";
print join (' ', 'The odd numbers are:',
                 grep 1 - $_ % 2, @a),
      "\n";
[download]

Not really similar, is it? The main differences:

• No main function needed.
• Variables are declared where needed.
• The diamond operator is used to read from the input.
• for can be used with simpler syntax, avoiding off by 1 errors (see perlsyn)
• grep can be used to filter arrays. No need for temporary variables to keep the results if you do not need them later.

---

---

Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!

Titles consisting of a single word are discouraged, and in most cases are disallowed outright.

Read Where should I post X? if you're not absolutely sure you're posting in the right place.

Please read these before you post! —

• How do I compose an effective node title?
• How do I post a question effectively?
• Markup in the Monastery

Posts may use any of the Perl Monks Approved HTML tags:

a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr

You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)

	For:		Use:
	&		&
	<		&lt;
	>		&gt;
	[		&#91;
	]		&#93;

Link using PerlMonks shortcuts! What shortcuts can I use for linking?

See Writeup Formatting Tips and other pages linked from there for more info.