>perl -wMstrict -le
"use List::MoreUtils qw(part);
 ;;
 my @si = qw(001 John  002 Mary  003 Tom);
 ;;
 my $i = 0;
 my @parts = part { $i++ % 2 } @si;
 print qq{even index elements: @{ $parts[0] }};
 print qq{ odd index elements: @{ $parts[1] }};
"
even index elements: 001 002 003
 odd index elements: John Mary Tom