my $p = "$sym{'$b'}/helloworld/test.dat";
$sym{'$b'} = "my";
my $val = eval $p;
print "p = $val\n";