my (@str1, @str2);

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

##</code><code>##

my (@str1, @str2);

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

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

##</code><code>##

my ($s1, $s2) = ("ABCD", "ABEF");

my $i = 0;
$i++ while substr($s1, $i, 1) eq substr($s2, $i, 1);

my $prefix = substr $s1, 0, $i;