for ( my $Col = 0; $Col < 8; $Col++ )
{
  for ( my $Row = 0; $Row < 8; $Row++ )
  {
    # Do something in an 8x8 matrix.
    if ( $Matrix[ $Col ][ $Row ] == 4 ) ...
  }
}