Select Code to Download

while (my ($a,$b,$c) = splice(@data, -3)) {
  push @hashrefs, { a => $a, b => $b, c => $c };
  pop @data;  # null field
}

my @hashrefs;
$#hashrefs = int(@data / 4);
...
  $hashrefs[$i--] = { a => $a, b => $b, c => $c };
  pop @data;
}