chomp($title_line = <DATAFILE>);
chomp($value_line = <DATAFILE>);
@titles = split /\s+/,$title_line;
@values = split /\s+/,$value_line;
map { $Data->{$_} = shift @values } @titles;