while (<>)
{
...
@fields = split ;
#field[0] is the module.
$entries{$region}{$fields[0]}{entry} = $fields[0] ;
$entries{$region}{$fields[0]}{addr} = $fields[1] ;
$entries{$region}{$fields[0]}{size} = $fields[2] ;
$entries{$region}{$fields[0]}{type} = $fields[3] ;
$entries{$region}{$fields[0]}{object} = $fields[5] ;
...
}