tie @log_array, 'Tie::File', $fname, mode => O_RDWR | O_CREAT; @log_array = sort {$a<=>$b} @log_array;