my $suffix = substr($element,$offset,$filetypelen);

      if ($suffix =~ m/$filetype/)  {
        push @pdflist, $element;