perl -wle '@_ = -1 .. 3; for( @_ ){ print $_; ( ) = 0 or last }'