Help for this page

Select Code to Download


  1. or download this
    while (my ($one,$two) = splice @_, 0, 2) {
    #do something
}