my $infile="orders.txt";
my $output2 = 'orders_today.txt';

open (OUT, "+>$output2");

open (FILE, $infile) or die "ERROR: File does not exist\n";
for (<FILE>) 
{
  
    
    
my @text =();
@text = split /\t/,$_;
chomp @text;


push (@text, $text[0]);
push (@text, $text[1]);
push (@text,$text[2]);
push (@text,$text[3]);


{ $a->[10] cmp $b->[10] } 


    print map @$_
    
    
}
[download]

I assumed you knew more about Perl. My fault. When using a function you do not know yet, consult its documentation.
Here is what I had in mind:

#!/usr/bin/perl
use warnings;
use strict;

my $infile = 'orders.txt';
my $output = 'orders_today.txt';

open my $IN, '<', $infile or die "ERROR: Cannot open '$infile': $!";

my @out;
while (<$IN>) {
    chomp;
    my @text = split /\t/;
    push @out, [@text];
}

open my $OUT, '>', $output or die "Cannot open '$output': $!";
print {$OUT} map "@$_\n", sort { $a->[10] cmp $b->[10] } @out;
[download]

لսႽ† ᥲᥒ⚪⟊Ⴙᘓᖇ Ꮅᘓᖇ⎱ Ⴙᥲ𝇋ƙᘓᖇ

hello choroba, Thank you for replying, the coding works however the output is all in one line, even though the split function is in the coding? not sure why? and is it possible to only print the following (as opposed to the entire original file?) print OUT "$text[10]\n$text[11]\nQuantity:$text[12]\n\n$text[16]\n$text[17]\n$text[18]\n$text[19]\n$text[20]\n$text[21]\n$text[22]\n$text[23]\n\n\n"; Thank you so much :)!