Fine if it works and provides what you want. But I would still reiterate the advice provided earlier by other monks: there is really no reason to shell out and run an ls shell command when Perl provides you with powerful builtins to do just that, such a glob (my favorite choice in this specific case) or opendir/readdir.

Update: added links to the documentation of the suggested functions.