#! /usr/perl/bin

use warnings;
use strict;
use Data::Dumper;

my $abc = {
  one => {
    oneone => 11,
    onetwo => 12,
  },
  two => {
    twoone => 21,
    twotwo => 22,
  }
};

foreach my $key (keys %{$abc}) {
    if ( ref $abc->{$key} eq 'HASH' ) {
      for my $subkey (keys %{$abc->{$key}}){
        printf qq{%s -> %s\n}, $subkey, $abc->{$key}{$subkey};
      }
    }
}
[download]

onetwo -> 12
oneone -> 11
twotwo -> 22
twoone -> 21
[download]

Thanks for the replies. I actually figured this out moments after the post. Is it possible to delete my own posts?

Nooo! Don't delete it. It's a good question and will be useful for others facing the same problem.

The post is doing no harm. It might help other users searching on this site for helpful threads. You can edit your posts, but if you remove the text the answers to your post would hang there without meaning

The other posts provide good insight, but if you really want to know what a data structure looks like one of the simplest methods is to do this:

use Data::Dumper;

# .......

print Dumper( $abc );
[download]

You'll get a dump of the data structure on your screen. Very useful for getting a snapshot of what you're working with. Sometimes I'm even the one who created the structure, and I will use Data::Dumper to verify that it looks as I expected it to.

my $abc = {
    1 =>                 2,
    3 =>            [4, 5,],
    6 => {7 => 8, 9 => 10,},
};
[download]