while (<FILE>){

    my $line = $_;