Dear Monks I have a textfile, and I want to sort it based on the value of the first set (each line have three sets separate by a space)

and in the spirit of TIMTOWTDI:

#!/usr/bin/perl -w
###########################################################
use strict;
use Tie::File;
 
my @rray=();
 
tie @rray,"Tie::File","myfile" or die $!;
 
print join "\n",sort @rray;
print "\n";
 
untie @rray;
[download]

yields for an output:

dec.x.bc.00016113 1067503 1067501
dec.x.bc.00019580 1067503 1067501
dec.x.bc.00041669 1067503 1067501
[download]