for (keys %usage) {
  for my $f (0,1,2) {
    $usage{$_}->[$f] = 0 unless defined $usage{$_}->[$f];
} }