use strict;
use warnings;

my $num;

print "Please enter the number. ";

$num = <STDIN>;
chomp $num;

OddEven ($num);

sub OddEven {
	my $num = shift;
	for (my $i = 1; $i <= $num; $i++) {
	print (($i % 2) == 0 ? "[Even]" : "[Odd]", $i, "\n");
	}
}