open TRACE, "C:/test/trace_11122008.txt" or die "Couldn't open trace_11122008.csv file: $!";

my @trace_row;

while (<TRACE>) {
    print chomp($_);
    push @trace_rw, {trace_cur =>
                        substr($_,0,10),
                        trace_orig =>
                        substr($_,11,18)};
}