As always in perl, there is more than one way to do that.

The simplest solution may not be in Perl, though..

  system("ls --color -c $ext >& /dev/null" );
[download]

(Re-direct standard error to /dev/null)