my $t; # perl int* pi; // C/C++