Select Code to Download

use strict;
my %names;
...
 $names{$label}{$name1} = $name2;
 $names{$label}{$name3} = $name4;
}

# Untested, because I rarely use symbolic refs :)
while (<>) {
...
 $$label{$name1} = $name2;
 $$label{name3} = $name4;
}