my $key = ( sort keys %in )[0];