$VAR1 = '2008-07-26 10.10.10.1 3.3.3.3 80 hxxp://3.3.3.3 200 OK';
$VAR14 = '2008-07-26 192.168.1.32 11122 3.3.3.3 80 hxxp://4.4.4.4 200 
+OK';
$VAR29 = '2008-07-26 1.1.1.1 11122 3.3.3.3 80 hxxp://3.3.3.3 200 OK';
[download]

foreach my $line (@lines) {
        $sth->execute($line, $line) or die "Can't execute SQL statemen
+t: $DBI::errstr\n";
        my @all_rows;
        while ( my $ref = $sth->fetchrow_arrayref()) {
                push(@all_rows, $ref );
        }
        my @sorted1
        = map { join( ' ', @{ $_->[0] } ) }
          sort { $a->[1] <=> $b->[1]
                         ||
                 $a->[2] <=> $b->[2]
                         ||
                 $a->[3] <=> $b->[3]
                         ||
                 $a->[4] <=> $b->[4]

               } map { [$_, split(/\./, $$_[1] ) ] }
                 @all_rows;

       my @sorted
        = map { $_->[0] }
          sort { $a->[1] <=> $b->[1]
                         ||
                 $a->[2] <=> $b->[2]
                         ||
                 $a->[3] <=> $b->[3]
                         ||
                 $a->[4] <=> $b->[4]

               } map { [$_, split(/\./, (split /\s+/, $_)[1] ) ] }
                     @sorted1;

        my @all_rows1 = map { [ split( /\s+/, $_ ) ] }
                   @sorted;
    
print Dumper ( @sorted );
}
[download]

As Krambambuli noted, the @sorted1 code is correct and the @sorted isn't. In the wrong one, you're applying split to an array reference.

Seeing as how you are sorting ip adresses, you could simplify this sort routine using Socket's function inet_aton.

#!/usr/bin/perl
use strict;
use warnings;
use Socket;
use Data::Dumper;

my @data = map{[split]} <DATA>;
print Dumper \@data;

my @sorted = map{$_->[0]}
            sort {$a->[1] cmp $b->[1]}
             map { [$_, inet_aton($_->[1]) ]} @data; 
print Dumper \@sorted;

__DATA__
alpha 2.23.14.71
beta 10.23.14.71
gamma 25.26.1.6
delta 1.2.3.4
epsilon 10.24.14.71
[download]

Socket is included with perl 5.8.8 at least, and likely for earlier versions of perl.

Cristoforo thanks for the reply, however when using the code you provided I get the same results correct results but unsorted. Any ideas? I changed my query to only return two rows so it would closely follow your example. Below are the results. Thanks

        my @data =  map { [$_, split(/\./, (split /\s+/, $_)[1])]} @al
+l_rows;
        #print Dumper @data;

        my @sorted = map{$_->[0]}
             sort {$a->[1] cmp $b->[1]}
             map { [$_, inet_aton($_->[1]) ]} @data;
        print Dumper @sorted;
}


Results
$VAR1 = [
          [
            '2008-07-26',
            '13.168.1.1'
          ]
        ];
$VAR2 = [
          $VAR1->[0]
        ];
$VAR1 = [
          [
            '2008-07-26',
            '10.169.1.1'
          ]
        ];
[download]

Delete the



       my @sorted
        = map { $_->[0] }
          sort { $a->[1] <=> $b->[1]
                         ||
                 $a->[2] <=> $b->[2]
                         ||
                 $a->[3] <=> $b->[3]
                         ||
                 $a->[4] <=> $b->[4]

               } map { [$_, split(/\./, (split /\s+/, $_)[1] ) ] }
                     @sorted1;

        my @all_rows1 = map { [ split( /\s+/, $_ ) ] }
                   @sorted;
    
print Dumper ( @sorted );
[download]

part completely and dump or print @sorted1, where you have the results you want, but which you then ignore just to rebuild and reuse the same buggy results that you started with.

If it still doesn't work: try to understand and comment each line in the code before using it. You'll definitely get it right by your own! ;)

Krambambuli
---