tie @tied_mess,'Tie::File',$filename,autochomp=>0;
print $#tied_mess;