here are some quick UDF's......


function Push($item, $array)
    dim $i
    redim preserve $array[ubound($array) + 1]
    for $i = ubound($array) to 1 step -1
        $array[$i] = $array[$i-1]
    next
    $array[0] = $item
    $push = $array
endfunction

function pop($array)
    dim $i
    dim $temparray[ubound($array)-1]
    for $i = 0 to ubound($temparray)
        $temparray[$i] = $array[$i+1]
    next
    $pop = $temparray
endfunction