rename ($x->[0], "USB" . $ext) and print "rename was successful.\n";
[download]

(rename returns true for success, false otherwise.)