++$parts{"number"}->[$i];
$filename = join('',
               map { $parts{"prefix"}->[$_]                    
                   . $parts{"number"}->[$_] }                  
                               0..@{$parts{"number"}}-1)        
            . $parts{"suffix"};