foreach $argnum (0..$#ARGV){
  $node=$ret;
  print "$ARGV[$argnum]\n";
  @path=split /\//,$ARGV[$argnum];
  print Dumper @path; #debugging helps!
  $node=$node->{$_} for @path;
  print $node;
  }
print "\n";
}