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

##</code><code>##

while (<FILE>) { 
	next if /^#/;
	next if /none|unkno/i;

	chomp;     
	#  print "$_\n"; returns expected results      
              
	my @array = split;
	#  printing each array element also passes here
	$hash{$arg} = [@array];
}