push @trace_rw, [unpack 'A10A8', $_] while <TRACE>;

##</code><code>##

my @trace_rw = map { [unpack 'A10A8', $_] } <TRACE>;