my $s;
LIST:
for my $len ( 1..length $files[0]) {
  $s = substr($files[0],0,$len - 1);
  last LIST unless (scalar grep { /^$s/ } @files) == @files;
}
chop $s;
print "prefix: $s\n";