use v5.12;                              # enable say & strict
use warnings;

{
    package MySay;

    use Data::Dump qw/pp dd/;
    use Carp;
    require Tie::Handle;

    our @ISA = qw(Tie::Handle);


    sub TIEHANDLE {
        #carp pp '\@_: ', \@_;
        bless \ my $i, shift
    }

    sub PRINT {
        my $self = shift;
        print STDOUT "$_" for @_
    }

    sub new {
        my $self = shift;

        open my $fh, ">&STDOUT";
        tie *$fh, 'MySay';
        return($fh);
    }

    # sub DESTROY {
    #     print STDOUT "DESTROY";
    #     # my $self = shift;
    #     select(STDOUT);
    # }
}



{
    package main;

    # ----  test vars
    $_='$_';
    my @a = map { "\$a[$_]" } 0..2;
    my @b;


    {

        select MySay->new();

        say;

        say @b;

        say @a;

        select(STDOUT)
    }


    say "AF","TER"
}

##</code><code>##

C:/Strawberry/perl/bin\perl.exe -w d:/tmp/pm/tie_handle.pl 
$_
$a[0]
$a[1]
$a[2]
AFTER