Select Code to Download

push( @{ $GeneralInfo{$Ref2General->[$i_gdes]} }, $2);
. . .
push @{ $GeneralInfo{$Ref2General->[$i_gdes]} }, $NotNamed;

$GeneralInfo{$Ref2General->[$i_gnoi]}=$2;

while (my $line = <INPUT>)
{
    . . . 
}