$array[0]++;

##</code><code>##

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

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

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