Select Code to Download

#!/usr/bin/env perl
use strict;
use warnings; use 5.014;
...
for my $key (@sorted_keys) {
    printf "%4d%20s%6s\n", $key, $data->{$key}{network}, $data->{$key}
+{VLAN};
}

C:\Old_Data\perlp>perl 970882.pl
  36       10.182.2.0/25  2222
...
  90   10.183.243.128/25  3494

C:\Old_Data\perlp>

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