for (my $x = 0; $x < @array; $x+) {
  if ($array[$x][0] eq 'bill') {
    $array[$x][1] = 45;
  }
}