Try the following for a strange version that you might find handy in obfuscation:

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

Be warned that you cannot construct a useful function this way though because it remembers state from function call to function call!