foreach my $element (@fields) {
          $element =~ s/\s+//g;
           $element .= $element;
    }