my $in = $ARGV[0]; my $val = eval '$nethist->$in'; print Dumper($val);