The best I could get was 45:

map$_/(grep!($_[0]%$_|$_[1]%$_),1..$_)[-1],@_
[download]

no_slogan++

Russ
Brainbench 'Most Valuable Professional' for Perl