my (@str1, @str2);

my ($i, @prefix) = (0);

push @prefix, $str1[$i++] while($str1[$i] eq $str2[$i]);