use strict;
use warnings;
my @filename=(raja.exe,rhs.dll,sd.sf);
my $pattern='(\.exe) | (\.dll)';
foreach( @filename) {
  print $_ if( $_ =~ /$pattern/x ); 
}