use strict; use warnings; print "$_\n" while (<>); #### my @var; push(@var, $_) while(<>);