#! /usr/bin/perl
(push @odd, $_)...(push @even, $_) foreach @ARGV;
print map "$_\n", "Odd arguments:", (map "  $_", @odd),
  "\nEven arguments:", (map "  $_", @even);