Perl tips

Undefine vars

You have several ways to undef a list of vars already. The most simple I know is
( $from, $to ) = (); 

Chop

• https://perldoc.perl.org/functions/chop.html

Create path based on file name

use Path::Class;

my $destination_file  = file('tardir/dest1/dest2/test.txt');
$destination_file->dir->mkpath;

# ... do the copying here