use Algorithm::Loops qw( NestedLoops );

my @bytes = map { sprintf('%02X', $_) } 0..255;

my $num_bytes = 6;

NestedLoops(
   [ ( [ @bytes ] ) x $bytes ],
   sub {
      print(join('', @_), "\n");
   }
);