Yeah, you probably want something more like this, or something similar to it.

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;
}
[download]