変数の中身を変数とする方法を教えてください。

たとえば

data := 'test';
と変数'data'に'test'というデータを格納し

dataの中の test を変数名として
test := '中身';

ということをしたいんです。

perlでいうあらわすと

$data = "test";

$$data = "中身";

print $test;

と、すると 「中身」と表示される。

よろしくお願いします。