while (my ($key,$value) = each(%Data)){
    if (ref $value eq 'ARRAY') {
        for my $hashref (@$value) {
            print "  $_ => $hashref->{$_}\n" for keys %$hashref;
        }
    } else {
    print "$key = $value \n";
}