my $oldelem=0  # which cannot occur. 
foreach $elem (@elements) {
    do_something_with($oldelem,$elem) 
        unless $oldelem==0;
    $oldelem=$elem;
}