#!/usr/bin/perl
while (@ARGV) {
    $next_element = shift;
    # Your code here.
}
