Select Code to Download

my %error = (
    'disk' => 0,
...
for my $i (0 .. $#dataarray) {
    $error{$dataarray[$i][3]}++;
}

  my $query = $db->prepare("select code, username, userid from transac
+tions");
  $query->execute();
...
        [$_, $user{$_}{name}, $user{$_}{count}]
      } keys %user)[0 .. 4]];     
  }