$perm=400 if $file=~/catalina\.properties/ || $file=~/\.key$/ || $file=/tomcat-users\.xml/;

##</code><code>##

$perm=400 if grep {/$file/}, qw(catalina.properties \.key$ tomcat-users.xml);