#!/usr/bin/perl -w

use strict;
use warnings;

use IPC::Shareable qw( );

my @array1;
my @array2;

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

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