$ perl -MO=Deparse -le " while (my $val = shift @array) { print $val } "
BEGIN { $/ = "\n"; $\ = "\n"; }
while (my $val = shift @array) {
    do {
        print $val
    };
}
-e syntax OK