while ($n) {
    $i = $n % 26;
    unshift @vector, $i;
    $n -= $i;
    $n /= 26;
} 

print map { chr(64+$_) } @vector;