for my $i ( 0..255 ) {
  for my $j ( 0..255 ) {
    for my $k ( 0..255 ) {
      for my $l ( 0..255 ) {
      }
    }
  }
}