# intentional error
# return the last scalar in a list

sub lastelement
{
    while ($#_>0) {shift;}
    @_;
}
print lastelement(2,5,6) + 3;  print "\n";  # should be 9, no?  :-o

#  Perl is the most awesome language ever!  No error anywhere!
