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