Yeah I ran the sample code that you have and saw that the IP's were properly sorted(as they should be). Here is the code that I got, but I am still getting unsorted results??? FYI I changed where the sorting fell in the loop since it was only giving me the first result then moving on to the next one. Below are the sample results, like I mentioned they are not getting sorted and I am not sure why? Thanks for the help once again!

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 @sorted = map{$_->[0]}
                     sort {$a->[1] cmp $b->[1]}
                     map { [$_, inet_aton($_->[1]) ]} @all_rows;
                print Dumper \@sorted;
        }
}


--------------------------------------------------------
Results: FYI there are three entries in the file which is save to the 
+@line array so three results shown below.
$VAR1 = [
          [
            '2008-07-26',
            '10.10.10.1'
          ],
          $VAR1->[0],
          $VAR1->[0],
             ];
$VAR1 = [
          [
            '2008-07-26',
            '192.168.1.32'
          ],
          $VAR1->[0],
          $VAR1->[0],
          $VAR1->[0],
          $VAR1->[0],
          $VAR1->[0],
          $VAR1->[0],
          $VAR1->[0]
        ];
$VAR1 = [
          [
            '2008-07-26',
            '1.1.1.1'
          ],
          $VAR1->[0],
          $VAR1->[0],
          $VAR1->[0],
          $VAR1->[0],
          $VAR1->[0],
          $VAR1->[0],
          $VAR1->[0],
          $VAR1->[0],
          $VAR1->[0],
          $VAR1->[0],
          $VAR1->[0],
          $VAR1->[0],
            ];
[download]