my @fields = unpack 'A6 A28 A8 A14 A32 A10 A6 A32 A2', $data;

print $trlname[ $_ ], ' : ', $fileds[ $_ ] for 0 .. $#fields;