my @files = <*.pl>;

##</code><code>##

 Readonly my $FILE_PATTERN => '*.pl';
 my @files = <$FILE_PATTERN>;    # KABOOM! (probably)