use strict;
use warnings;

my %IP_Store = (
                "11.0.0.1" => "UEH1_system_ip",
                "11.0.0.11" => "UEH11_system_ip",
                "11.0.0.3" => "UEH25_system_ip",
                "11.0.0.25" => "UEH111_system_ip"
                );
                
sub mySort {    
    $IP_Store{$a} =~ /(\d+)/;
    my $firstVal = $1;
    $IP_Store{$b} =~ /(\d+)/;
    my $secVal = $1;
    $firstVal <=> $secVal;
}


                
foreach my $Value (sort mySort (keys (%IP_Store))) {
        print "$IP_Store{$Value}\n";
        print "System_ip = '$Value' \n";
       #print "PDN-IP = '$Values' \n";
}

##</code><code>##

use strict;
use warnings;

my %IP_Store = (
                "UEH1_system_ip" => "11.0.0.1" ,
                "UEH11_system_ip" => "11.0.0.11",
                "UEH25_system_ip" => "11.0.0.3",
               "UEH111_system_ip" => "11.0.0.25", 
                );
                
sub mySort {    
    $a =~ /(\d+)/;
    my $firstVal = $1;
    $b =~ /(\d+)/;
    my $secVal = $1;
    $firstVal <=> $secVal;
}


                
foreach my $Value (sort mySort (keys (%IP_Store))) {
        print "$Value\n";
        print "System_ip = '$IP_Store{$Value}' \n";
       #print "PDN-IP = '$Values' \n";
}

##</code><code>##

UEH1_system_ip
System_ip = '11.0.0.1' 
UEH11_system_ip
System_ip = '11.0.0.11' 
UEH25_system_ip
System_ip = '11.0.0.3' 
UEH111_system_ip
System_ip = '11.0.0.25'