#!/usr/bin/perl

use strict;
use warnings;

my %hash = ("1" => "00", "2" => "00", "3" => "00", "4" => "00", "5" => "00", "6" => "00");

for (my $segment = 6; $segment != 0; $segment--) {

    for (0..99) {

        $_ = "0$_" if $_ < 10;

        $hash{$segment} = $_;

        print "$hash{1}:$hash{2}:$hash{3}:$hash{4}:$hash{5}:$hash{6}\n";

    }

}