You haven't stated your goal and, as already pointed out, your code is incomplete: we can only guess at what you're trying to achieve. The following code populates @state:

#!/usr/bin/env perl

use strict;
use warnings;

use threads;
use threads::shared;

use Data::Dumper;

my @state = &share([]);

meow();

print Dumper \@state;

sub meow {
    my @p = qw{grey striped purrr cutest_kitty
                meowing_kitty the_lord_of_the_cats};
    my @k = qw{smart_kitty striped_sweety purrr meowing_poes
                social_kitty the_lord_of_the_poezen};

    for (0 .. 5) {
        push @{$state[0]}, $p[$_];
        push @{$state[1]}, $k[$_];
    }

    return;
}
[download]

Output:

$ pm_thr_share_array.pl
$VAR1 = [
          [
            'grey',
            'striped',
            'purrr',
            'cutest_kitty',
            'meowing_kitty',
            'the_lord_of_the_cats'
          ],
          [
            'smart_kitty',
            'striped_sweety',
            'purrr',
            'meowing_poes',
            'social_kitty',
            'the_lord_of_the_poezen'
          ]
        ];
[download]

I have no idea if that's what you want but it might provide some help.

Please read How do I post a question effectively? and follow its guidelines if you choose to post here again.