Add "code" tags around your code: Writeup Formatting Tips

below is my code which didn't work

Until you give us more details about how it didn't work, start debugging: Basic debugging checklist

• warnings: You never use $write_dir
• open or die
• Make sure you have the files: use Data::Dumper; print Dumper(\@files);