opendir(DIR, $dir2 ) or die $!;
     while ( $file = readdir(DIR))       {
               if (-f $file) {  #  read only files
 chomp($file);



$file =~ s/^\s+|\s+$//g;
$filenam = "" ; 
push ( @srcarray, $file) ;
if ($file =~ m/\.mobi$/ig ) {
&typefiles($file, "mobifile"); 
                          }

if ($file =~ m/\.azw3$/ig ) {
&typefiles($file, "azw3file"); 
                        }


sub typefiles( $tfile , $filetype ) { 
($tfile, $filetype ) = @_ ;
if ($filetype eq "mobifile" )  { 
push ( @mobiarray, $file) ;     } # End mobifiles 

# Main body - parsing directory listing and performing actions 
        foreach $authf (@srcarray){

if ($authf =~ m/\.pl$/) { 
next; }



if ($authf =~ m/\.epub/ig ) {
our $authf2 = $authf ;


foreach my $myfilt (@mobiarray){ 
my $mymobi  = $myfilt;
my $myepub  = $authf2;

$mymobi = &extfilter($mymobi);
$myepub = &extfilter($myepub);


sub extfilter($line) {
($line) = @_;
$line =~ s/\.mobi//ig ;
$line =~ s/\.epub//ig ;
$line =~ s/^\s+|\s+$//g;
$line = lc $line;
return $line; 
                     }