Help for this page
use 5.010; use strict; ... { say $ips{$classc}[rand @{$ips{$classc}}]; }
use 5.010; use strict; ... say $ips{$_}[rand @{$ips{$_}}] for sort keys %ips;