Select Code to Download

use warnings;
use strict;
...
  map  { /\.([0-9]+)$/; [ $_, $1 ] } keys %ip_store;

print $ip_store{$_}, $/, $_, $/ for @ip_data;

UEH1_system_ip
11.0.0.1
...
11.0.0.11
UEH111_system_ip
11.0.0.25