use strict; use warnings; use feature 'say'; while ( $_= , chomp, $_) { say; } __DATA__ 3 1 0 2