Erm, if you call open for a pipe with a list like that it behaves akin to system in that it doesn't run the arguments through a shell so that's not really going to do anything.

$perl -e 'open( my $x, "-|", "zsh", "-c", q{ctr=1;for i in "$@" ; do p
+rint "$ctr: $i"; ctr=$((ctr + 1)); done}, "--", qw(1 2 3 4), q{2>&1} 
+); print while <$x>; close( $x ); print "\n"'
1: 1
2: 2
3: 3
4: 4
5: 2>&1
[download]