my %hash;
while(my $line = <>) {
   my ($name, $value) = split m/something goes here/, $line;
   die "error: value already defined!" if exists $hash{$name};
   $hash{$name} = $value;
}