foreach my $eth (@eths) { foreach my $net (@nets) { $netifaces->{$eth}{$net} = 1; } }