$oldHandle = select (REPORT);
$~ = [format reference]
select $oldHandle;