Select Code to Download

#!/usr/bin/perl

...
local $"=', ';
print "The even numbers are @{$number->[0]}\n";
print "while the odd numbers are @{$number->[1]}.\n";

> perl EvenOdd.pl 1 2 -nogo 3.4 3 4 5 -4
The even numbers are 2, 4, -4
while the odd numbers are 1, 3, 5.