sub common_prefix {
    my ($first, $last) = (sort @_)[0,-1];
    my $i = 0;
    while (substr($first, $i, 1) eq substr($last, $i, 1)) { $i++}
    substr $first, 0, $i;
}