open (DATL,"< file") ;
while ( my $l=<DATL> ) {
push ( @ll , $l ) ;
}close(DATL) ;