my @datain;
my $oldfilename;
my @newargdata;
my $filenamequantity;
my @quantitysplit1;
my @quantitysplit2;
my $quantityvalue;
my @copydatain;
my $currentdir;