I'm not sure I understand what you mean?

## Assign appropriate values to 3 different slots in the glob
*t = sub{ print 42 }; *t = \'fred'; *t = [ 1,2,3];;

## And print them
print join "\n", t(), $t, "@t";;
42
1
fred
1 2 3

## Locally override the code slot and print them--the others are untou
+ched.
{
    local *t = sub { print 'changed' }; 
    print join "\n", t(), $t, "@t"; 
};;
Subroutine main::t redefined at (eval 5) line 1, <STDIN> line 3.
changed
1
fred
1 2 3

## print them again having exited the block, 
## and they all retain their original values
print join "\n", t(), $t, "@t";;
42
1
fred
1 2 3
[download]

Something has been changed, new magic in the localization of typeglobs. Because, even though I though get this pleasant result in 5.8.3, it's not at all what I get in 5.6.1:

$\ = "\n";
*t = sub{ print 42 }; *t = \'fred'; *t = [ 1,2,3];
print $];
{
    local *t = sub { print 'changed' };
    print join "\n", t(), $t, "@t";
};
[download]

results for 5.6.1 in

Possible unintended interpolation of @t in string at test.pl line 7.
Use of uninitialized value in join or string at test.pl line 7.
5.006001
changed
1
[download]

Thus: only the sub is set.

Compare that to the result for 5.8.3:

Possible unintended interpolation of @t in string at test.pl line 7.
Subroutine main::t redefined at test.pl line 6.
5.008003
changed
1
fred
1 2 3
[download]