location=dungeon
name=corwin
weapon=grayswandir

##</code><code>##

my %data = ();	# initialize hash
while (<INPUT>) {	# assume you have the file open already
	my ($key, $value) = split(/=/, $_, 2);
	$data{$key} = $value;
}

##</code><code>##

$data{$arrname} = \@array;
	# or
$data{$arrname} = [ @array ];