my @array = TieVariable();
for (0..5) {
    print "$_: $array[$_]\n";
} # for
$array[6] = 1000;

untie @array;
# ------------------------------------------------------------
sub TieVariable {
    tie my @array, 'Tie::Excel::Array';
    $array[$_] = 5 * $_ for 0..5;

    return @array;
} # TieVariable