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