use MLDBM; # this gets SDBM and Data::Dumper
    use Fcntl; # to get them constants
    
    my $dbm;
    my %hash;
unlink ('testmldb.dir');
unlink ('testmldb.pag');

    $dbm = tie %hash, 'MLDBM', 'testmldbm', O_CREAT|O_RDWR, 0640 or die $!;

		while($html =~ m/example(key)regex(value)example/ig ) {
		my $tempArray = $hash{$key};
		push( @{ $tempArray } , $value);
		$hash{$domain} = $tempArray;
		undef $tempArray; #Just for fun-zies
		}