while () { ##

##

my @data = ;

##

##

my @data;
while () {
    push @data, $_;
}

##

##

use strict;
use warnings;