$hash{$arg} = [@array];
push (@{ $hash{$arg} }, @array) unless /^\#|none|unkno/i;