# this handles ARRAYs and HASHes
# you may want to use Data::Dumper for debugging however
# the final code for processing the data structure will
# also be less generic than this code.
if (ref $value eq 'ARRAY') {
  print "$key => (@$value)\n";
} elsif (ref $value eq 'HASH') {
  print "$key => (%$value)\n";
} else
  print "$key => $value\n";
}
[download]

--
integral, resident of freenode's #perl

Thank you Integral
One last question,

What would the syntax be if I wanted to simply print out?:

Varbind: 1.3.6.1.2.1.2.2.1.1
[download]

Thanks again, I'm slowly piecing this all together.

Well assuming that $key = 'Varbind' and that $value is an array ref containing each part of the id, then you can use join:

print "$key: ".join('.',@$value)."\n";
[download]

When you use an array in a string (like "@a"), perl translates this internally into join($", @a), one can see this if you turn perl's bytecode back into source code using B::Deparse.

--
integral, resident of freenode's #perl

Exactly ... that's part of what needs finishing. My laziness got the best of my hubris. 8-)