my $foostuff = '2-Amino-4-hydroxybutyric acid';
my $barstuff = 'ethanol';
my %substances = (
    'L-homoserine' => \$foostuff,
    'L-Homoserine' => \$foostuff,
    'beer' => \$barstuff,
);