use List::Util 'minstr';

my $first_key = minstr(keys %in);