sub addmac {
 my ( $mac, $add ) = @_;
  $mac =~ s/://g;
 my $dec = hex($mac);
  $mac = sprintf("%012x", $dec+$add);

  return join(":", $mac =~ /(..)/g );
}

 my $mac = '00:00:00:00:00:f1';
  foreach ( 1 .. 32 ) {
        $mac = addmac($mac,$_*4);
        print "$mac\n";
  }