Select Code to Download

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

while (<FILE>) { 
    next if /^#/;
    next if /none|unkno/i;
...
    #  printing each array element also passes here
    $hash{$arg} = [@array];
}