use Data::Dumper;

my $tmpcnt=0;
open TWO, ">", "./two.out";

print STDERR Dumper [PerlIO::get_layers(\*STDOUT)];
print STDERR Dumper [PerlIO::get_layers(\*TWO)];

foreach (@rawout) {
    print  "$tmpcnt: ". $_;
    print TWO "$tmpcnt: ". $_;
    $tmpcnt++;
}