...
@line = split(';;', $_);
                        print "One: $line[0], Two: $line[1]\n";
                        if ($line[1]) {
                                $base{$hash} = {$line[0] => \%($line[1])};
                        } else {
                                $base{$hash} = {$line[0] => 0};
                        }
...