foreach $file (@files) { rename $file,"reference_$file" }