$t = 1;

$hash{"type" . $t } = "Hello world!\n";

print $hash{type1};
print ${$main::{hash}}{type1};
__OUTPUT__
Hello world!
Hello world!