local $/ = \(2*122);
binmode($fixedfile);
while (<$fixedfile>) {
   my @fields = unpack(
      "A2 A10 A33 A15 A19 A10 A3 A18 A6 A4 x2" .
      "A2 A98 A11 A9 x2",
      $_
   );

   ...
   my $total = $fields[3];
   my $timestamp = $fields[4];
   ...
}

##</code><code>##

   my %fields;
   @fields{qw(
      ...
      total
      timestamp
      ...
   )} = unpack(...);

##</code><code>##

   my (
      ...
      $total,
      $timestamp,
      ...
   ) = unpack(...);