use strict;
use warnings;
use diagnostics;

##</code><code>##

foreach my $line (@lines) {
   chomp $line;
   foreach my $element (split /,/ , $line) {
      my $extension = substr($element, -3) || '';
      if ( $extension eq 'exe' ) {
          push @dllarray, "[$element]";
      }           
      elsif ( $extension eq 'dll' )
      {
          push @dllarray, $element;           
      }      
   }
}