##
@{$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;