perl -e '@x=(1..5);print "@x"' | perl -e 'while (<>) {print};print"\n"'