my @lines=; ##

##

while (){
 my $line=$_;
 }