请教个问题

$maximum=&max(3,5,10,4,6);sub max{my($max_so_far)=shift @_;foreach(@_){if($_>$max_so_far){$max_so_far=$_;}}$max_so_far;}为什么没有结果？