while ($line = <FILE_NEW>) {
chomp;

($a, $b, $c) = (split /\s+/,$line) [ -1,-2,-3 ] ;
}