foreach my $x (@results){ my $ext = "A"; rename ($x->[0], "USB" . $ext); print $x->[0] . "\t" . localtime($x->[1]) . "\n"; ++$ext; } [download]
In reply to Rename File Name in Array by drodinthe559