use strict;
use warnings;

my %temphash = (
      '1AHIT'    => {
                       'COMMENT' => '1AHIT',
                       'IP'      => '192.168.221.10'
                    },   
      '2AHIT'    => {
                      'COMMENT' => '2AHIT', 
                      'IP'      => '192.168.222.10'
                    },
      'CAD1-OST' => {
                      'COMMENT' => 'CAD1-OST',
                      'IP'      => '192.168.43.10'
                    }
  );

my @keys_sorted=sort{$temphash{$b}{'IP'} cmp $temphash{$a}{'IP'}} keys(%temphash);

for my $key (@keys_sorted)
{
  print "$key:\n";
  print "  IP: ".$temphash{$key}{IP}."\n";
  print "  COMMENT: ".$temphash{$key}{COMMENT}."\n";
  print "#"x80,"\n";
}