@{$data{$ip}}{@field_names} = [$fields]; #### @{$data{$ip}}{@field_names} = @$fields; #### my $fields = [@cname, @ports, @banners]; #### my @fields = (\@cname, \@ports, \@banners); #### my @fields = (\@cname, \@ports, \@banners); @{$data{$ip}}{@field_names} = @fields;