my $newname = "reference_".$filename ;
if(not rename $filename, $newname ){
   warn "Error renaming $filename to $newname : $!";
}