my %weekday=(
		1 => "Monday",
		2 => "Tuesday",
		3 => "Wednesday",
		4 => "Thursday",
		5 => "Friday",
		6 => "Saturday",
		7 => "Sunday",
);



while ( (my @all )=each(%weekday) ) {
	say "@all";
}

while ( each(%weekday) ) {
	say;
}