Help for this page
location=dungeon name=corwin weapon=grayswandir
my %data = (); # initialize hash while (<INPUT>) { # assume you have the file open already my ($key, $value) = split(/=/, $_, 2); $data{$key} = $value; }
$data{$arrname} = \@array; # or $data{$arrname} = [ @array ];