my $mask = '';
$mask ^= $_ ^ $array_of_test_names[0] for @array_of_test_names;
$mask =~ m[^(\0+)] and $len = length( $1 );
print substr $array_of_test_names[ 0 ], 0, $len;
print "\n";