Shell Programming and Scripting

$ cat script.pl
use warnings;
use strict;

## Accept one argument.
@ARGV == 1 or die qq(Usage: perl $0 input-file\n);

## Open input file or return with error.
open my $fh, "<", $ARGV[0] or die qq(Cannot open input file $ARGV[0]: $!\n);

## Get the column of numbers of the input file and sort it descending.
my @file = <$fh>;
my @numbers = sort { $b <=> $a } map { (split)[4] } @file;

## Reopen input file to process it from the beginning.
close $fh;
open $fh, "<", $ARGV[0] or die qq(Cannot open input file $ARGV[0]: $!\n);
while ( <$fh> ) {
        my @f = split;
        $f[4] = shift @numbers;
        printf "%s\n", "@f";
}
close $fh;
$ cat infile
11 AA asdf 1 -0.5 xx
11 AA axdf 1 -0.6 xx
11 AA csls 1 -0.7 xx
11 AA hjkj 1 -0.4 xx
11 AA uius 1 -0.8 xx
22 AA asdf 1 -0.4 xx
22 AA axdf 1 -0.7 xx
22 AA csls 1 -0.6 xx
22 AA hjkj 1 -0.9 xx
22 AA uius 1 -0.2 xx
$ perl script.pl infile
11 AA asdf 1 -0.2 xx
11 AA axdf 1 -0.4 xx
11 AA csls 1 -0.4 xx
11 AA hjkj 1 -0.5 xx
11 AA uius 1 -0.6 xx
22 AA asdf 1 -0.6 xx
22 AA axdf 1 -0.7 xx
22 AA csls 1 -0.7 xx
22 AA hjkj 1 -0.8 xx
22 AA uius 1 -0.9 xx