Select Code to Download

#!/usr/bin/perl -w

...

my $handle1 = tie @array1, 'IPC::Shareable', 'data', \%options;
my $handle2 = tie @array2, 'IPC::Shareable', 'kala', \%options;