@files=( $file1,$file2,....);
foreach $file (@files){
	open( FILE, "<$file");
	@info = <FILE>;
	shift( @info);
	close FILE;
	open( FILE, ">$file");
	print FILE @info;
    close FILE;
}