my ( $n, @list ) = @_;