in reply to Should this be so slow ?

select CDR_TDM; print $_; select STDOUT;

is a rather silly way of doing

print CDR_TDM $_;