#!/user/bin/perl -w
use warnings;
use strict;
my %hash = (
	"00:00:00" => "a",
	"00:20:00" => "a",
	"10:00:00" => "b",
	"20:00:00" => "a",
	"02:22:00" => "b",
);

my %hash2 = (
	"00:00:00" => "a",
	"00:20:00" => "a",
	"10:00:00" => "b",
	"20:00:00" => "a",
	"02:22:00" => "b",
);

my @bla = (%hash, %hash2);


##</code><code>##

foreach (keys $hash){
	print $_ . "\n";
}

##</code><code>##

foreach (keys $bla[0]){
	print $_ . "\n";
}