use strict;
use File::Copy;
use File::Basename;

# Input Data A
my $FROM='D:\projects\A';

# Input Data B
my $TO='D:\projects\B';


my @IU = glob($FROM."\\*");
my $IU=@IU;


for (my $i=0;$IU[$i];$i++)
{
  $IU[$i] = basename($IU[$i]);
}


for (my $i=0;$IU[$i];$i++)
{
  my @Suffix = split /\./, $filename;
  my $ISO3   = $Suffix[0];
  my @StatFROM = stat($FROM\\$IU[$i]);
  my @StatTO   = stat($TO."\\".$ISO3."\\".$IU[$i]);
    
}