%hash = (
	1 => {
		a	=> '1',
	},
	2 => {
		b	=> '2',
	},
	3 => {
		c	=> '3',
	},
	4 => {
		d	=> '4',
	},
);
for my $key (sort {$a <=> $b} keys %hash) { print (grep {1} keys %{$hash{$key}}) }