It looks like $Line isn't getting a value assigned to it.
I think your split command should have parentheses around the regexp:
in reply to uninitialized value on hash lookup (was: hash problem)
If you're splitting a record on tabs, you might want to check if multiple tabs separate the fields. If so, you could use:
my ($Line, $Filed, $Dvalue) = split(/\t/);
I'm a beginner PERL user but I hope that helps.
my ($Line, $Filed, $Dvalue) = split(/\t+/);
Update: Changed /\t*/ to /\t+/ to avoid unexpected results. Thanks esper!