#!/usr/bin/perl
use strict;
use warnings;

#use constant MAX_VAL => 255;
use constant MAX_VAL => 99;

my @MAC=(0) x 6;

sub PrintMAC
{
#  print join(':',map {sprintf('%02X',$_)} @_),"\n";
  print join(':',map {sprintf('%02D',$_)} @_),"\n";
}

my $CurNO = 5;
while ($CurNO >= 0)
{
  while ($MAC[$CurNO] < MAX_VAL)
  {
    PrintMAC(@MAC);
    $MAC[$CurNO]++;
  }
  $CurNO--;
}
PrintMAC(@MAC);