my %name_for;
while (<>) {
    my ($name, @aliases) = split;
    $name_for{$_}=$name for ($name,@aliases);
}