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