sub saveVolumes { my $volInfo = shift; # supposed to be hash reference (hash of hashes) print Dumper($volInfo); print "volumes: $volInfo->{volumes}{0}, $volInfo->{volumes}\n"; # more stuff here }