#!/usr/bin/perl
my @rows = ();

open FH, "LINE" or die $!;
open FHO, ">SORT";

while (<FH>) {
   chomp;
   push @rows, [ split /\|/ ];
#I guess this should work with any separators,e.g \t as well?
}
close FH;
#my @sorted = sort { $a->[2] <=> $b->[2] } @rows;
#printf "%g\t%g\t%i\t%g\n", sort { $a->[2] <=> $b->[2] } @rows;
#foreach ( sort {$a->[2] <=> $b->[2] } @rows ) {
#printf "$_ \n" }
print map {$_->[2] . "\n" } sort { $a->[2] <=> $b->[2]} @rows;
#print map {$_ . "\n" } sort { $a->[2] <=> $b->[2]} @rows;
exit 
##</code><code>##

 for($i = 0; $i <4; $i++) {
print map {$_->[$i] . "\n" } sort { $a->[2] <=> $b->[2]} @rows;