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];
}