#!/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};
}