my (@str1, @str2);

my ($i, @prefix) = (0);
for(@str1) {
    last if $_ ne $str2[$i++];
    push @prefix, $_;
}