Bei mir sieht das meist ganz ähnlich aus wie in Deinem Ausgangsbeispiel. Wer schonmal mit File::Find zu tun hatte, wird diese Syntax schon lesen können.