use strict;
use warnings;
use Data::Dumper;

my $nethist;
$nethist->{seek} = 42;
my $in = '{seek}';
my $val = eval '$nethist->'.$in;
print Dumper($val);