You all rock :)
Here is the code that sorts properly and gets rid of the stinking space..

my @sorted_list = 
    map { $$_[0] }
    sort { $$a[1] cmp $$b[1] }
    map { [ $_, do{
        my $tmp = join "\x00", (split /\t/)[3,4];
        $tmp =~ s/(^|\x00)\s+/$1/g;$tmp } ]
    } @database_in;
[download]

Thank you all for this help :)

Update: Change code cause it didn't work 100%... This code does though.. OK I am just using the code above now :) Thank you again :)


-----------------------
Billy S.
Slinar Hardtail - Guildless
Datal Ephialtes - Guildless
RallosZek.Net Admin/WebMaster
Aerynth.Net Admin/WebMaster

perl -e '$cat = "cat"; if ($cat =~ /\143\x61\x74/) { print "Its a cat!
+\n"; } else { print "Thats a dog\n"; } print "\n";'
[download]