Re^2: Perl and arrays of arrays?

Select or download this

use strict;

...
  # Print the IP, followed by all of its aliases joined by spaces.
  print OUTPUT_FILE ("$ip ", join(" ", sort @{$masterhash{$ip}}), "\n"
+);
}

Select or download this

IPADDRESS alias1 alias2 alias5
IPADDRESS2 alias3 alias4
IPADDRESS2 alias3 alias5
IPADDRESS2 alias3 alias5

Select or download this

IPADDRESS alias1 alias2 alias5
IPADDRESS2 alias3 alias4 alias5

Select Code to Download