my $glue = 'data';
my %options = (
     create    => 1,
     exclusive => 0,
     mode      => 0644,
     destroy   => 0,
 );

my $deDuppedArrayHandle = tie @deDuppedArray, 'IPC::Shareable', undef,
+ \%options;
my $filesDownloadedHandle = tie @filesDownloaded, 'IPC::Shareable', un
+def, \%options;