#!/usr/bin/env perl
use strict;
use warnings; use 5.014;
use Socket qw/ inet_aton /;

my $data = {
    '127' => {
        'network' => '10.182.48.0/24',
        'VLAN' => '3509'
    },
    '32' => {
        'network' => '10.182.12.0/25',
        'VLAN' => '2121'
    },
    '36' => {
        'network' => '10.182.2.0/25',
        'VLAN' => '2222'
    },
    '90' => {
        'network' => '10.183.243.128/25',
        'VLAN' => '3494'
    }
};



my @sorted_keys = map {$_->[0]}
                 sort {$a->[1] cmp $b->[1]}
                  map {[ $_, inet_aton( $data->{$_}{network} =~ /^([.\d]+)/) ]}
                 keys %$data;

for my $key (@sorted_keys) {
	printf "%4d%20s%6s\n", $key, $data->{$key}{network}, $data->{$key}{VLAN};
}

##</code><code>##

C:\Old_Data\perlp>perl 970882.pl
  36       10.182.2.0/25  2222
  32      10.182.12.0/25  2121
 127      10.182.48.0/24  3509
  90   10.183.243.128/25  3494

C:\Old_Data\perlp>
##</code><code>##

C:\Old_Data\perlp>perl t.pl
Key     Network                 VLAN
32      10.182.12.0/25          2121
36      10.182.2.0/25           2222
127     10.182.48.0/24          3509
90      10.183.243.128/25               3494