my $row;
for my $temp (@display) {
    if ($temp->[0] =~ /^$number$/i) {
         $row = $temp;
    }
}
unless ($row) {
    $row = [$number,' ',' ',' ',' '];
    push @display, $row;
}
$row->[$j] = 'X';