my @files=<c:/Storage/*.csv>; #Reads all csv files
foreach(@files){ $newname=(extract some data from the file here)
$success=rename $oldname,$newname; }