$t = 1;
${ "type" . $t } = "Hello world!\n";
print $type1;
print ${$main::{type1}}
__OUTPUT__
Hello world!
Hello world!