Select Code to Download

use strict;
use warnings;
...
for $key ( sort keys %hash ) {
    $tee->format_write( q/main::TEE/ );
}

-> ./tst-tee-write 
==== Top of Output ====
...
key3    val3
key4    val4
key5    val5