This is 37 chars. I saw Abigail do something like this on clpmisc:

    sub average1 {
        local$"="+";eval("@{$_[0]}")/@{$_[0]}
    }
[download]

This looks prettier when dealing with an ordinary list:

    sub average2 {
        local$"="+";eval("@_")/@_
    }
[download]

In which case this would be shorter:

    sub average3 {
        eval(join"+",@_)/@_
    }
[download]

The last one is the same as no_slogan's.

John.
--