#! /usr/bin/perl -wsub max { my($big)=shift @_; foreach (@_) { ...