while (my $line = <READ>) {
    my ($acid, @codons) = split ' ', $line;
    $code{$_} = $acid for @codons;
}