Select Code to Download

my %g = ();
while(<INFO>) {
...
     HAIRCOLOR => $hairColor,
     };
}

call_sub( $g{$name} );