for($i=1; $i<11; $i++) {
    $dirname = sprintf("%smp4/",$i);
    @filesa = split(/\n/,`ls $dirname`);
    foreach(@filesa) {
	$name = $_;
	@file = split(/\./,$name);
	print "@file[0]\n";
    }
}
