#!/usr/bin/perl

use strict;
use warnings;

my $hash_ref = set_up();

foreach my $key (keys %{$hash_ref}) {
   my $val = $hash_ref->{$key};
   if (ref($val)) {
      print "total '$key' = ", scalar @{$val}, "\n";
      foreach my $act (@{$val}) {
         print "\t$act\n";
      }
   } else {
      print "$key - $val\n";
   }
}

sub set_up {
   return {
      one     => "cat",
      two     => "dog",
      actions => [ "feed", "walk", "pet", "groom" ],
   };
}