...
      my $extension = substr($element, -3) || '';
      if ( $extension eq 'exe' ) {
      ...
      elsif ( $extension eq 'dll' )
      ...