while (my ($key, $value) = each %{$thedata}) {
    # $value is anon arrayref
    for my $hashref (@{$value}) {
        print $hashref->{name}, "\n";
        print $hashref->{reference}, "\n";
    }
}