>>249
それはそういう仕様です。
tie()を複数回行っても、効果は上書きされるだけ。
そういう場合はスタックでも使うんだね。

use IO::Scalar;
my @ios = (\*STDOUT);
my $buf;
my $buf2;
push @ios, IO::Scalar->new(\$buf);
push @ios, IO::Scalar->new(\$buf2);
print {$ios[-1]} "OK\n";
pop @ios;
print {$ios[-1]} "1 $buf2";
pop @ios;
print {$ios[-1]} "2 $buf";