Slightly less duplicated code and processing, also strict compliant:

#!/usr/bin/perl -w
use strict;
use IPC::Shareable;

my $options = {
     create          => 1,
     exclusive       => 0,
     mode            => 0644,
     destroy         => 0
};

my $i = 1;

while (1) {
    print "$i\n";

    tie my %data, 'IPC::Shareable', 'data', $options;
    $data{test}{test} = $i++;
    sleep 1;

    %data = ();
    IPC::Shareable->clean_up();
}
[download]

Makeshifts last the longest.