while (my ($one,$two) = splice @_, 0, 2) {
    #do something
}