my ( $top_entry, @entries ) = @_;