Select Code to Download

$array[0]++;

my ($letter, $number) = $array[0] =~ /(\w)(\d+)/;

...
$number = sprintf("%.6d", $number);

$array[0] = $letter . $number;