use constant FIRST => 1;
use constant SECOND => 2;
use constant FIFTH => 5;

%nums = (
	@{[FIRST]} => 'Ein',
	@{[SECOND]} => 'Zwei',
	@{[FIFTH]} => 'Funf'
);

print keys %nums