{
	no warnings qw/uninitialized/;
	my @sorted = sort {
		defined( $hash{$a} ) <=> defined( $hash{$b} ) or
		$hash{$a} <=> $hash{$b}
	} keys %hash;

	say "Defined as Criteria:\t@sorted";
}