#!/usr/bin/env perl

use strict;
use warnings;

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

my @sorted_keys
    = sort { $VAR1->{$a}{network} cmp $VAR1->{$b}{network} } keys %$VAR1;

print qq{Key\tNetwork\t\t\tVLAN\n};
for my $key (@sorted_keys) {
    print qq{$key\t}, $VAR1->{$key}{network}, qq{\t\t},
            $VAR1->{$key}{VLAN}, qq{\n};
}