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.