my @paths = qw(/home/user1/tmp/coverage/test
               /home/user1/tmp/covert/operator
               /home/user1/tmp/coven/members);
print common_prefix('/', @paths), "\n";