use File::Sort qw(sort_file); sort_file({ I => [qw(file_1 file_2)], # inputs o => 'file_new', # output k => '5.3,5.5rn', # sort key definition t => '|' # field separator character }); sort_file('file1', 'file1.sorted');