$.[0:]

##</code><code>##

foreach $elem ($json_path->values($json)) { ... }

##</code><code>##

perl -MJSON::Path -Mstrict -wE 'my $json = q{["string1","string2"]}; my $json_path = JSON::Path->new(q{$.[0:]}); foreach my $elem ($json_path->values($json)) {say "##$elem$$"}'